$NetBSD: patch-ab,v 1.3 2007/03/28 20:51:10 bouyer Exp $

--- check_perl_modules.pl.orig	2006-11-16 10:47:33.000000000 +0100
+++ check_perl_modules.pl	2007-02-28 20:09:50.000000000 +0100
@@ -171,35 +171,7 @@
 # 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'} =~ /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::Config->{'inactivity_timeout'} = 4;
-    CPAN::Shell->install($module);
-
-    ## Restore lang
-    $ENV{'LANG'} = $lang if (defined $lang);
-
+	1;
 }
 
 ###--------------------------
