use File::Path ();
use File::Spec;
use vars qw($VERSION);
-$VERSION = substr q$Revision: 1.58 $, 10;
+$VERSION = substr q$Revision: 1.60 $, 10;
=head1 NAME
prompt("Parameters for the 'perl Makefile.PL' command?
Typical frequently used settings:
- POLLUTE=1 increasing backwards compatibility
- LIB=~/perl non-root users (please see manual for more hints)
+ PREFIX=~/perl non-root users (please see manual for more hints)
Your choice: ",$default);
$default = $CPAN::Config->{make_arg} || "";
conf_sites() unless $fastread;
- 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-www.informatik.uni-dortmund.de:1404";
- $ans = prompt("Your favorite WAIT server?\n ",$default);
- push @{$CPAN::Config->{'wait_list'}}, $ans;
- }
-
# 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';