blob: 9fe490bcdd9a155030caa758e6ac20f16dd54f1f (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
|
$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;
}
###--------------------------
|
