mail/sympa/files/patch-check_perl_modules.pl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

--- check_perl_modules.pl	2003/11/28 18:16:39
+++ check_perl_modules.pl	2004/05/04 21:05:38
@@ -158,6 +158,8 @@
 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";
@@ -178,7 +180,7 @@
     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);