2003-12-09 10:07:37 +01:00
|
|
|
--- check_perl_modules.pl 2003/11/28 18:16:39
|
2004-05-07 23:02:47 +02:00
|
|
|
+++ check_perl_modules.pl 2004/05/04 21:05:38
|
|
|
|
@@ -158,6 +158,8 @@
|
2003-12-09 10:07:37 +01:00
|
|
|
sub install_module {
|
|
|
|
my ($module, $default) = @_;
|
|
|
|
|
|
|
|
+ return if $ENV{'PERL_EXTUTILS_AUTOINSTALL'} =~ /--skip|--default/;
|
|
|
|
+
|
|
|
|
unless ($ENV{'FTP_PASSIVE'} eq 1) {
|
|
|
|
$ENV{'FTP_PASSIVE'} = 1;
|
|
|
|
print "Setting FTP Passive mode\n";
|
2004-05-07 23:02:47 +02:00
|
|
|
@@ -178,7 +180,7 @@
|
2003-12-09 10:07:37 +01:00
|
|
|
print "Install module $module ? [$default]";
|
|
|
|
my $answer = <STDIN>; chomp $answer;
|
|
|
|
$answer ||= $default;
|
|
|
|
- next unless ($answer =~ /^y$/i);
|
|
|
|
+ return unless ($answer =~ /^y$/i);
|
|
|
|
CPAN::Shell->conf('inactivity_timeout', 4);
|
|
|
|
CPAN::Shell->install($module);
|