Lines Matching refs:Config
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