Lines Matching refs:ans
486 my $ans;
494 $ans = <STDIN>;
495 chomp $ans;
496 if ($ans =~ /^\s*$/) {
498 $ans = "c";
500 $ans = "y";
503 last if ($ans =~ /^y$/i || $ans =~ /^n$/i);
505 last if ($ans =~ /^c$/i);
511 if ($ans =~ /^c/i) {
514 if ($ans !~ /^y$/i) {
534 my $ans;
548 $ans = <STDIN>;
549 $ans =~ s/^\s*(.*\S)\s*$/$1/;
550 if ($ans =~ /^\s*$/) {
552 $ans = $default{$config};
558 $entered_configs{$config} = ${ans};
1143 my $ans = <STDIN>;
1144 chomp $ans;
1145 $default{"TEST_TYPE"} = $ans;
2525 my $ans = <STDIN>;
2526 chomp $ans;
2527 if ($ans eq "p" || $ans eq "P") {
2529 } elsif ($ans eq "f" || $ans eq "F") {
2531 } elsif ($ans eq "s" || $ans eq "S") {