distrib/lib/CPAN.pm

12 use Config ();
47 		  Config         4096
78     CPAN::Config->load unless $CPAN::Config_loaded++;
92     CPAN::Config->load unless $CPAN::Config_loaded++;
116         if (my $histfile = $CPAN::Config->{'histfile'}) {{
157         unless $CPAN::Config->{'inhibit_startup_message'} ;
237 package CPAN::Config;
482     CPAN::Config->load unless $CPAN::Config_loaded++;
497     my $lockfile = File::Spec->catfile($CPAN::Config->{cpan_home},".lock");
552     my $dotcpan = $CPAN::Config->{cpan_home};
589 	    my $incc = $INC{'CPAN/Config.pm'};
595     $CPAN::Config->{cpan_home}
601     \$CPAN::Config->{cpan_home}
661     $getcwd = $CPAN::Config->{'getcwd'} || 'cwd';
674     CPAN::Config->load unless $CPAN::Config_loaded++;
709                             sub {require Net::Config},
734         exists $CPAN::Config->{dontload_hash}{$mod}
824     unless ($histfile = $CPAN::Config->{'histfile'}){
828     $histsize = $CPAN::Config->{'histsize'} || 100;
866     $ENV{PERL5LIB} = join $Config::Config{path_sep}, @dirs, @env;
979 		ID => $CPAN::Config->{'build_dir'},
980 		MAX => $CPAN::Config->{'build_cache'},
981 		SCAN => $CPAN::Config->{'scan_cache'} || 'atstart',
1039 package CPAN::Config;
1041 #-> sub CPAN::Config::edit ;
1061 		push @{$CPAN::Config->{$o}}, @args;
1064 		pop @{$CPAN::Config->{$o}};
1067 		shift @{$CPAN::Config->{$o}};
1070 		unshift @{$CPAN::Config->{$o}}, @args;
1073 		splice @{$CPAN::Config->{$o}}, @args;
1076 		$CPAN::Config->{$o} = [@args];
1088 	    $CPAN::Config->{$o} = $args[0] if defined $args[0];
1096   my $v = $CPAN::Config->{$k};
1121 #-> sub CPAN::Config::commit ;
1126 	$configpm ||= $INC{"CPAN/Config.pm"};
1128 CPAN::Config::commit called without an argument.
1155     $fh->print(qq[$msg\$CPAN::Config = \{\n]);
1156     foreach (sort keys %$CPAN::Config) {
1159 		   ExtUtils::MakeMaker::neatvalue($CPAN::Config->{$_}),
1175 #-> sub CPAN::Config::defaults ;
1185     undef $CPAN::Config->{'inhibit_startup_message'}; # lazy trick to
1224 #-> sub CPAN::Config::load ;
1229     eval {require CPAN::Config;};       # We eval because of some
1243     if (defined $INC{"CPAN/Config.pm"} && -w $INC{"CPAN/Config.pm"}) {
1244 	$configpm = $INC{"CPAN/Config.pm"};
1252 	my($configpmtest) = File::Spec->catfile($configpmdir,"Config.pm");
1280 #-> sub CPAN::Config::missing_config_data ;
1292 	push @miss, $_ unless defined $CPAN::Config->{$_};
1297 #-> sub CPAN::Config::unload ;
1300     delete $INC{'CPAN/Config.pm'};
1303 #-> sub CPAN::Config::help ;
1323     undef; #don't reprint CPAN::Config
1326 #-> sub CPAN::Config::cpl ;
1345     my(@o_conf) = (keys %CPAN::Config::can, keys %$CPAN::Config);
1415     foreach $incdir ($CPAN::Config->{'cpan_home'},@INC) {
1477 # CPAN::Shell::o and CPAN::Config::edit are closely related. 'o conf'
1487 	    $CPAN::Frontend->myprint("CPAN::Config options");
1488 	    if (exists $INC{'CPAN/Config.pm'}) {
1489 	      $CPAN::Frontend->myprint(" from $INC{'CPAN/Config.pm'}");
1495 	    for $k (sort keys %CPAN::Config::can) {
1496 		$v = $CPAN::Config::can{$k};
1500 	    for $k (sort keys %$CPAN::Config) {
1501                 CPAN::Config->prettyprint($k);
1504 	} elsif (!CPAN::Config->edit(@o_what)) {
1783     CPAN::Config->load unless $CPAN::Config_loaded++;
1785     my($todir) = File::Spec->catdir($CPAN::Config->{'cpan_home'},"Bundle");
1809 	       $Config::Config{'myhostname'},
1817 	       Config->myconfig,
1966     if ($CPAN::Config->{term_is_latin}){
2190     } elsif (defined $CPAN::Config->{proxy_user} &&
2191              defined $CPAN::Config->{proxy_pass}) {
2192         $USER = $CPAN::Config->{proxy_user};
2193         $PASSWD = $CPAN::Config->{proxy_pass};
2254   $class->debug(qq[Going to login("anonymous","$Config::Config{cf_email}")]);
2255   unless ( $ftp->login("anonymous",$Config::Config{'cf_email'}) ){
2283  # > +     my $proxy = $CPAN::Config->{'http_proxy'} || $ENV{'http_proxy'};
2287  # > +         my $noproxy = $CPAN::Config->{'no_proxy'} || $ENV{'no_proxy'};
2359                     if $var = $CPAN::Config->{ftp_proxy} || $ENV{ftp_proxy};
2361                     if $var = $CPAN::Config->{http_proxy} || $ENV{http_proxy};
2377                     if $var = $CPAN::Config->{no_proxy} || $ENV{no_proxy};
2382         $ENV{$prx} = $CPAN::Config->{$prx} if $CPAN::Config->{$prx};
2388     $CPAN::Config->{urllist} ||= [];
2389     unless (ref $CPAN::Config->{urllist} eq 'ARRAY') {
2392     $last = $#{$CPAN::Config->{urllist}};
2398 		(substr($CPAN::Config->{urllist}[$b],0,4) eq "file")
2400 		(substr($CPAN::Config->{urllist}[$a],0,4) eq "file")
2440                 join(", ", @{$CPAN::Config->{urllist}}).
2460         my $url = $CPAN::Config->{urllist}[$i] || $CPAN::Defaultsite;
2584   my($devnull) = $CPAN::Config->{devnull} || "";
2589 	my $url = $CPAN::Config->{urllist}[$i] || $CPAN::Defaultsite;
2609 	  next unless exists $CPAN::Config->{$f};
2610 	  $funkyftp = $CPAN::Config->{$f};
2709     my $ftpbin = $CPAN::Config->{ftp};
2715 	my $url = $CPAN::Config->{urllist}[$i] || $CPAN::Defaultsite;
2785 		"user anonymous $Config::Config{'cf_email'}"
3054 	return CPAN::Config::cpl(@_);
3076     for ($CPAN::Config->{index_expire}) {
3092     return if $LAST_TIME + $CPAN::Config->{index_expire}*86400 > $time
3150     CPAN::Config->load; # we should guarantee loading wherever we rely
3151                         # on Config XXX
3153     my $abs_wanted = File::Spec->catfile($CPAN::Config->{'keep_source_where'},
3157 	-M $abs_wanted < $CPAN::Config->{'index_expire'} &&
3160 	my $s = $CPAN::Config->{'index_expire'} == 1 ? "" : "s";
3161 	$cl->debug(qq{$abs_wanted younger than $CPAN::Config->{'index_expire'} }.
3419     return unless $CPAN::Config->{'cache_metadata'};
3426     my $metadata_file = File::Spec->catfile($CPAN::Config->{cpan_home},"Metadata");
3438     return unless $CPAN::Config->{'cache_metadata'};
3440     my $metadata_file = File::Spec->catfile($CPAN::Config->{cpan_home},"Metadata");
3676 	File::Spec->catfile($CPAN::Config->{keep_source_where},
3682         $force = $stat[9] + $CPAN::Config->{index_expire}*86400 <= time;
3869 			    $CPAN::Config->{keep_source_where},
4100     if (  $CPAN::Config->{'shell'} ) {
4125     unless (system($CPAN::Config->{'shell'}) == 0) {
4147       $CPAN::Config->{cvsroot} || $ENV{CVSROOT};
4149       $CPAN::Config->{cvs_site_perl} || $ENV{CVS_SITE_PERL};
4178 			     $CPAN::Config->{keep_source_where},
4195     $fh_pager->open("|$CPAN::Config->{'pager'}")
4196 	or die "Could not open pager $CPAN::Config->{'pager'}: $!";
4203 with pager "$CPAN::Config->{'pager'}"
4223 	File::Spec->catfile($CPAN::Config->{keep_source_where},
4421 						$Config::Config{'binexp'}) {
4505 	$system = "$perl $switch Makefile.PL $CPAN::Config->{makepl_arg}";
4511 	if ($CPAN::Config->{inactivity_timeout}) {
4513 		alarm $CPAN::Config->{inactivity_timeout};
4565     $system = join " ", $CPAN::Config->{'make'}, $CPAN::Config->{make_arg};
4587     if ($CPAN::Config->{prerequisites_policy} eq "follow") {
4589     } elsif ($CPAN::Config->{prerequisites_policy} eq "ask") {
4744     my $system = join " ", $CPAN::Config->{'make'}, "test";
4776     my $system = join " ", $CPAN::Config->{'make'}, "clean";
4851     my $system = join(" ", $CPAN::Config->{'make'},
4852 		      "install", $CPAN::Config->{make_install_arg});
4953         my($todir) = $CPAN::Config->{'cpan_home'};
5054     foreach $incdir ($CPAN::Config->{'cpan_home'},@INC) {
5586     $packpath[-1] .= "." . $Config::Config{'dlext'};
5658     system("$CPAN::Config->{gzip} -c $read > $write")==0;
5680     system("$CPAN::Config->{gzip} -dc $read > $write")==0;
5711       return system("$CPAN::Config->{gzip} -dt $read")==0;
5726     my $pipe = "$CPAN::Config->{gzip} --decompress --stdout $file |";
5789   } elsif (MM->maybe_command($CPAN::Config->{gzip})
5791            MM->maybe_command($CPAN::Config->{'tar'})) {
5810         $system = "$CPAN::Config->{gzip} --decompress --stdout " .
5811             "< $file | $CPAN::Config->{tar} xvf -";
5813         $system = "$CPAN::Config->{tar} xvf $file";
5827         $system = "$CPAN::Config->{tar} xvf $file";
5902         my $unzip = $CPAN::Config->{unzip} or
6180 C<$CPAN::Config-E<gt>{cpan_home}/Bundle> directory. The file contains
6397 C<$CPAN::Config->{cpan_home}>. Note that this is different from
6509 through the pager specified in C<$CPAN::Config->{pager}>.
6528 C<$CPAN::Config->{index_expire}> days.
6631 ($CPAN::Config->{build_dir}). It is a simple FIFO mechanism that
6633 all directories there gets bigger than $CPAN::Config->{build_cache}
6639 There is another directory ($CPAN::Config->{keep_source_where}) where
6739 machine. Then copy the $CPAN::Config->{keep_source_where} (but not
6740 $CPAN::Config->{build_dir}) directory on a floppy. This floppy is kind
6748 result of the dialog is stored in a hash reference C< $CPAN::Config >
6749 in a file CPAN/Config.pm.
6751 The default values defined in the CPAN/Config.pm file can be
6760 Currently the following keys in the hash reference $CPAN::Config are
6796     http_proxy,   }  proxy requests. Both as CPAN::Config variables
7133     cpan> ! $CPAN::Config->{term_is_latin}=1