Lines Matching refs:Config
25 CPAN::FirstTime - Utility for CPAN::Config file Initialization
33 The init routine asks a few questions and writes a CPAN::Config
41 use Config;
45 eval {require CPAN::Config;};
46 $CPAN::Config ||= {};
82 $CPAN::Config->{urllist} ||= [];
101 my $cpan_home = $CPAN::Config->{cpan_home} || File::Spec->catdir($ENV{HOME}, ".cpan");
141 $CPAN::Config->{cpan_home} = $ans;
152 $CPAN::Config->{keep_source_where} = File::Spec->catdir($CPAN::Config->{cpan_home},"sources");
153 $CPAN::Config->{build_dir} = File::Spec->catdir($CPAN::Config->{cpan_home},"build");
166 $default = $CPAN::Config->{build_cache} || 10;
168 $CPAN::Config->{build_cache} = $ans;
171 $CPAN::Config->{'index_expire'} = 1;
181 $default = $CPAN::Config->{scan_cache} || 'atstart';
185 $CPAN::Config->{scan_cache} = $ans;
198 defined($default = $CPAN::Config->{cache_metadata}) or $default = 1;
202 $CPAN::Config->{cache_metadata} = ($ans =~ /^\s*y/i ? 1 : 0);
221 defined($default = $CPAN::Config->{term_is_latin}) or $default = 1;
226 $CPAN::Config->{term_is_latin} = ($ans =~ /^\s*y/i ? 1 : 0);
241 defined($default = $CPAN::Config->{histfile}) or
242 $default = File::Spec->catfile($CPAN::Config->{cpan_home},"histfile");
246 $CPAN::Config->{histfile} = $ans;
248 if ($CPAN::Config->{histfile}) {
249 defined($default = $CPAN::Config->{histsize}) or $default = 100;
251 $CPAN::Config->{histsize} = $ans;
268 $default = $CPAN::Config->{prerequisites_policy} || 'ask';
274 $CPAN::Config->{prerequisites_policy} = $ans;
292 my(@path) = split /$Config{'path_sep'}/, $ENV{'PATH'};
297 $CPAN::Config->{$progname} = 'not_here';
302 next if $progname eq "ncftp" && $CPAN::Config->{ncftpget} gt " ";
303 my $path = $CPAN::Config->{$progname}
304 || $Config::Config{$progname}
317 $progcall = $Config::Config{$progname} if $Config::Config{$progname};
324 $CPAN::Config->{$progname} = $ans;
326 my $path = $CPAN::Config->{'pager'} ||
331 $CPAN::Config->{'pager'} = $ans;
332 $path = $CPAN::Config->{'shell'};
339 $CPAN::Config->{'shell'} = 'not_here';
343 $CPAN::Config->{'shell'} = $ans;
361 $default = $CPAN::Config->{makepl_arg} || "";
362 $CPAN::Config->{makepl_arg} =
369 $default = $CPAN::Config->{make_arg} || "";
370 $CPAN::Config->{make_arg} = prompt("Parameters for the 'make' command?
377 $default = $CPAN::Config->{make_install_arg} || $CPAN::Config->{make_arg} || "";
378 $CPAN::Config->{make_install_arg} =
402 $default = $CPAN::Config->{inactivity_timeout} || 0;
403 $CPAN::Config->{inactivity_timeout} =
412 the \$CPAN::Config takes precedence.
417 $default = $CPAN::Config->{$_} || $ENV{$_};
418 $CPAN::Config->{$_} = prompt("Your $_?",$default);
421 if ($CPAN::Config->{ftp_proxy} ||
422 $CPAN::Config->{http_proxy}) {
423 $default = $CPAN::Config->{proxy_user} || $CPAN::LWP::UserAgent::USER;
431 if ($CPAN::Config->{proxy_user} = prompt("Your proxy user id?",$default)) {
451 $CPAN::Config->{proxy_pass} = prompt("Your proxy password?");
466 $CPAN::Config->{'inhibit_startup_message'} = 0;
467 $CPAN::Config->{'getcwd'} = 'cwd';
470 CPAN::Config->commit($configpm);
475 my $mby = File::Spec->catfile($CPAN::Config->{keep_source_where},$m);
610 $CPAN::Config->{urllist} ||= [];
612 if (@previous_urls = @{$CPAN::Config->{urllist}}) {
613 $CPAN::Config->{urllist} = [];
658 # hmmm, should take list of defaults from CPAN::Config->{'urllist'}...
679 push @{$CPAN::Config->{urllist}}, @urls;
683 my %seen = map (($_ => 1), @{$CPAN::Config->{urllist}});
707 $INC{'CPAN/MyConfig.pm'} || $INC{'CPAN/Config.pm'} || "configuration file",
713 push @{$CPAN::Config->{urllist}}, @urls;
716 map { print " $_\n" } @{$CPAN::Config->{urllist}};