diff options
author | Karl Berry <karl@freefriends.org> | 2015-04-26 22:16:26 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2015-04-26 22:16:26 +0000 |
commit | 342e672574c4e67d510e46ab6acd0e21a7d0cf54 (patch) | |
tree | 79e04202d08c0404bbd780bd26c1e34710e539b6 /Master/tlpkg/tlperl/lib/CPAN/FirstTime.pm | |
parent | be2706af7c57a0ef0f4d4e9f684ca4ef74922a82 (diff) |
(tl)perl 5.20.2 for windows, from siep
git-svn-id: svn://tug.org/texlive/trunk@37064 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 | 60 |
1 files changed, 48 insertions, 12 deletions
diff --git a/Master/tlpkg/tlperl/lib/CPAN/FirstTime.pm b/Master/tlpkg/tlperl/lib/CPAN/FirstTime.pm index b099b04a110..d1a8eef2607 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.5304"; +$VERSION = "5.5306"; =head1 NAME @@ -132,6 +132,9 @@ warnings, debugging output, and the output of the modules being installed. Set your favorite colors after some experimenting with the Term::ANSIColor module. +Please note that on Windows platforms colorized output also requires +the Win32::Console::ANSI module. + Do you want to turn on colored output? =item colorize_print @@ -203,7 +206,8 @@ Preferred method for determining the current working directory? Normally, CPAN.pm continues processing the full list of targets and dependencies, even if one of them fails. However, you can specify -that CPAN should halt after the first failure. +that CPAN should halt after the first failure. (Note that optional +recommended or suggested modules that fail will not cause a halt.) Do you want to halt on failure (yes/no)? @@ -420,6 +424,14 @@ host should be tried first. Randomize parameter +=item recommends_policy + +(Experimental feature!) Some CPAN modules recommend additional, optional dependencies. These should +generally be installed except in resource constrained environments. When this +policy is true, recommended modules will be included with required modules. + +Included recommended modules? + =item scan_cache By default, each time the CPAN module is started, cache scanning is @@ -462,6 +474,14 @@ variable. Show all individual modules that have a $VERSION of zero? +=item suggests_policy + +(Experimental feature!) Some CPAN modules suggest additional, optional dependencies. These 'suggest' +dependencies provide enhanced operation. When this policy is true, suggested +modules will be included with required modules. + +Included suggested modules? + =item tar_verbosity When CPAN.pm uses the tar command, which switch for the verbosity @@ -538,6 +558,17 @@ regardless of the history using "force". Do you want to rely on the test report history (yes/no)? +=item use_prompt_default + +When this is true, CPAN will set PERL_MM_USE_DEFAULT to a true +value. This causes ExtUtils::MakeMaker (and compatible) prompts +to use default values instead of stopping to prompt you to answer +questions. It also sets NONINTERACTIVE_TESTING to a true value to +signal more generally that distributions should not try to +interact with you. + +Do you want to use prompt defaults (yes/no)? + =item use_sqlite CPAN::SQLite is a layer between the index files that are downloaded @@ -865,6 +896,8 @@ sub init { 'follow|ask|ignore'); my_prompt_loop(build_requires_install_policy => 'yes', $matcher, 'yes|no|ask/yes|ask/no'); + my_yn_prompt(recommends_policy => 1, $matcher); + my_yn_prompt(suggests_policy => 0, $matcher); # #= Module::Signature @@ -1046,6 +1079,11 @@ sub init { my_dflt_prompt(mbuild_install_arg => "", $matcher); # + #== use_prompt_default + # + my_yn_prompt(use_prompt_default => 0, $matcher); + + # #= Alarm period # @@ -1224,10 +1262,7 @@ sub init { ); } else { - $CPAN::Frontend->myprint( - "Autoconfigured everything but 'urllist'.\n" - ); - _do_pick_mirrors(); + $CPAN::Config->{urllist} = [ 'http://www.cpan.org/' ]; } } elsif (!$matcher || "urllist" =~ $matcher) { @@ -1298,10 +1333,6 @@ sub init { sub _local_lib_config { # Set environment stuff for this process require local::lib; - my %env = local::lib->build_environment_vars_for(_local_lib_path(), 1); - while ( my ($k, $v) = each %env ) { - $ENV{$k} = $v; - } # Tell user about environment vars to set $CPAN::Frontend->myprint($prompts{local_lib_installed}); @@ -1309,6 +1340,12 @@ sub _local_lib_config { my $shellvars = local::lib->environment_vars_string_for(_local_lib_path()); $CPAN::Frontend->myprint($shellvars); + # Set %ENV after getting string above + my %env = local::lib->build_environment_vars_for(_local_lib_path(), 1); + while ( my ($k, $v) = each %env ) { + $ENV{$k} = $v; + } + # Offer to mangle the shell config my $munged_rc; if ( my $rc = _find_shell_config() ) { @@ -1853,8 +1890,7 @@ sub auto_mirrored_by { my $local = shift or return; local $|=1; $CPAN::Frontend->myprint("Looking for CPAN mirrors near you (please be patient)\n"); - my $mirrors = CPAN::Mirrors->new; - $mirrors->parse_mirrored_by($local); + my $mirrors = CPAN::Mirrors->new($local); my $cnt = 0; my @best = $mirrors->best_mirrors( |