$NetBSD: patch-ab,v 1.2 2004/09/26 20:13:34 seb Exp $

--- check_perl_modules.pl.orig	2004-04-19 13:07:29.000000000 +0000
+++ check_perl_modules.pl
@@ -156,35 +156,7 @@ sub check_modules {
 # Install a CPAN module
 ##----------------------
 sub install_module {
-    my ($module, $default) = @_;
-
-    unless ($ENV{'FTP_PASSIVE'} eq 1) {
-	$ENV{'FTP_PASSIVE'} = 1;
-	print "Setting FTP Passive mode\n";
-    }
-
-    ## This is required on RedHat 9 for DBD::mysql installation
-    my $lang = $ENV{'LANG'};
-    $ENV{'LANG'} = 'C' if ($ENV{'LANG'} eq 'en_US.UTF-8');
-
-    unless ($> == 0) {
-	print "\#\# You need root privileges to install $module module. \#\#\n";
-	print "\#\# Press the Enter key to continue checking modules. \#\#\n";
-	my $t = <STDIN>;
-	return undef;
-    }
-
-    printf "Description: %s\n", $opt_features{$module};
-    print "Install module $module ? [$default]";
-    my $answer = <STDIN>; chomp $answer;
-    $answer ||= $default;
-    next unless ($answer =~ /^y$/i);
-  CPAN::Shell->conf('inactivity_timeout', 4);
-    CPAN::Shell->install($module);
-
-    ## Restore lang
-    $ENV{'LANG'} = $lang if (defined $lang);
-
+	1;
 }
 
 ###--------------------------