diff options
| author | Karl Berry <karl@freefriends.org> | 2014-04-23 21:46:20 +0000 |
|---|---|---|
| committer | Karl Berry <karl@freefriends.org> | 2014-04-23 21:46:20 +0000 |
| commit | 300c1eb6d37d46078d448d6d58938d5a80cd68ff (patch) | |
| tree | 23a0a8b9f8f5460b405119c4d3c163d2d488ca5e /Master/tlpkg/tlperl/lib/CPAN/FirstTime.pm | |
| parent | ed55d86b7c5e18f6eccce80a1fb1423ca40a23b5 (diff) | |
(tl)perl 5.18.2 for windows from siep
git-svn-id: svn://tug.org/texlive/trunk@33648 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/tlperl/lib/CPAN/FirstTime.pm')
| -rw-r--r-- | Master/tlpkg/tlperl/lib/CPAN/FirstTime.pm | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/Master/tlpkg/tlperl/lib/CPAN/FirstTime.pm b/Master/tlpkg/tlperl/lib/CPAN/FirstTime.pm index 5030ef9b838..b099b04a110 100644 --- a/Master/tlpkg/tlperl/lib/CPAN/FirstTime.pm +++ b/Master/tlpkg/tlperl/lib/CPAN/FirstTime.pm @@ -10,7 +10,7 @@ use File::Path (); use File::Spec (); use CPAN::Mirrors (); use vars qw($VERSION $auto_config); -$VERSION = "5.5303"; +$VERSION = "5.5304"; =head1 NAME @@ -1029,7 +1029,7 @@ sub init { and $^O ne "MSWin32") { # as long as Windows needs $self->_build_command, we cannot # support sudo on windows :-) - my $default = "./Build"; + my $default = $^O eq 'VMS' ? '@Build.com' : "./Build"; if ( $CPAN::Config->{install_help} eq 'sudo' ) { if ( find_exe('sudo') ) { $default = "sudo $default"; @@ -1393,6 +1393,8 @@ sub _do_pick_mirrors { my $_conf = 'n'; if ( $CPAN::META->has_usable("Net::Ping") && Net::Ping->VERSION gt '2.13') { $_conf = prompt($prompts{auto_pick}, "yes"); + } else { + prompt("Autoselection disabled due to Net::Ping missing or insufficient. Please press ENTER"); } my @old_list = @{ $CPAN::Config->{urllist} }; if ( $_conf =~ /^y/i ) { |