Lines Matching refs:ans
51 my($ans,$default);
119 while ($ans = prompt("CPAN build and cache directory?",$default)) {
120 unless (File::Spec->file_name_is_absolute($ans)) {
123 my $absans = File::Spec->catdir($cwd,$ans);
124 warn "The path '$ans' is not an absolute path. Please specify an absolute path\n";
128 eval { File::Path::mkpath($ans); }; # dies if it can't
130 warn "Couldn't create directory $ans.
134 if (-d $ans && -w _) {
137 warn "Couldn't find directory $ans
141 $CPAN::Config->{cpan_home} = $ans;
167 $ans = prompt("Cache size for build directory (in MB)?", $default);
168 $CPAN::Config->{build_cache} = $ans;
183 $ans = prompt("Perform cache scanning (atstart or never)?", $default);
184 } while ($ans ne 'atstart' && $ans ne 'never');
185 $CPAN::Config->{scan_cache} = $ans;
200 $ans = prompt("Cache metadata (yes/no)?", ($default ? 'yes' : 'no'));
201 } while ($ans !~ /^\s*[yn]/i);
202 $CPAN::Config->{cache_metadata} = ($ans =~ /^\s*y/i ? 1 : 0);
223 $ans = prompt("Your terminal expects ISO-8859-1 (yes/no)?",
225 } while ($ans !~ /^\s*[yn]/i);
226 $CPAN::Config->{term_is_latin} = ($ans =~ /^\s*y/i ? 1 : 0);
243 $ans = prompt("File to save your history?", $default);
244 $ans =~ s/^\s+//;
245 $ans =~ s/\s+\z//;
246 $CPAN::Config->{histfile} = $ans;
250 $ans = prompt("Number of lines to save?", $default);
251 $CPAN::Config->{histsize} = $ans;
270 $ans =
273 } while ($ans ne 'follow' && $ans ne 'ask' && $ans ne 'ignore');
274 $CPAN::Config->{prerequisites_policy} = $ans;
323 $ans = prompt("Where is your $progname program?",$path) || $path;
324 $CPAN::Config->{$progname} = $ans;
330 $ans = prompt("What is your favorite pager program?",$path);
331 $CPAN::Config->{'pager'} = $ans;
342 $ans = prompt("What is your favorite shell?",$path);
343 $CPAN::Config->{'shell'} = $ans;
493 my $ans = prompt($prompt,"y");
494 $overwrite_local = 1 unless $ans =~ /^y/i;
591 my(%all,$url,$expected_size,$default,$ans,$host,$dst,$country,$continent,@location);
684 my($ans,@urls);
692 $ans = prompt ($prompt, "");
694 if ($ans) {
695 $ans =~ s/^\s+//; # no leading spaces
696 $ans =~ s/\s+\z//; # no trailing spaces
697 $ans =~ s|/?\z|/|; # has to end with one slash
698 $ans = "file:$ans" unless $ans =~ /:/; # without a scheme is a file:
699 if ($ans =~ /^\w+:\/./) {
700 push @urls, $ans unless $seen{$ans}++;
706 $ans,
711 } while $ans || !%seen;