use FileHandle ();
use File::Path ();
use vars qw($VERSION);
-$VERSION = substr q$Revision: 1.15 $, 10;
+$VERSION = substr q$Revision: 1.18 $, 10;
=head1 NAME
my(@path) = split($Config{path_sep},$ENV{PATH});
my $prog;
- for $prog (qw/gzip tar unzip make lynx ftp/){
+ for $prog (qw/gzip tar unzip make lynx ncftp ftp/){
my $path = $CPAN::Config->{$prog} || find_exe($prog,[@path]) || $prog;
$ans = prompt("Where is your $prog program?",$path) || $path;
$CPAN::Config->{$prog} = $ans;
question you\'re expected to answer, you can set a timer that will
kill a 'perl Makefile.PL' process after the specified time in seconds.
-If you set this value to 0, these processes will wait forever.
+If you set this value to 0, these processes will wait forever. This is
+the default and recommended setting.
};
}
}
- print qq{
+ unless (@{$CPAN::Config->{'wait_list'}||[]}) {
+ print qq{
WAIT support is available as a Plugin. You need the CPAN::WAIT module
to actually use it. But we need to know your favorite WAIT server. If
you don\'t know a WAIT server near you, just press ENTER.
};
-
- $default = "wait://ls6.informatik.uni-dortmund.de:1404";
- $ans = prompt("Your favorite WAIT server?\n ",$default);
- push @{$CPAN::Config->{'wait_list'}}, $ans;
+ $default = "wait://ls6.informatik.uni-dortmund.de:1404";
+ $ans = prompt("Your favorite WAIT server?\n ",$default);
+ push @{$CPAN::Config->{'wait_list'}}, $ans;
+ }
print qq{
$CPAN::Config->{$_} = prompt("Your $_?",$default);
}
- # We don't ask that now, it will be noticed in time....
+ # We don't ask that now, it will be noticed in time, won't it?
$CPAN::Config->{'inhibit_startup_message'} = 0;
+ $CPAN::Config->{'getcwd'} = 'cwd';
print "\n\n";
CPAN::Config->commit($configpm);
$ans = $other = "";
my(%seen);
+ my $pipe = -t *STDIN ? "| $CPAN::Config->{'pager'}" : ">/dev/null";
while () {
- my $pipe = -t *STDIN ? "| $CPAN::Config->{'pager'}" : ">/dev/null";
my(@valid,$previous_best);
my $fh = FileHandle->new;
$fh->open($pipe);
}
}
}
+ $fh->close;
$previous_best ||= 1;
$default =
@{$CPAN::Config->{urllist}} >= $expected_size ? "q" : $previous_best;