Lines Matching refs:ans
608 my $ans;
616 $ans = <STDIN>;
617 chomp $ans;
618 if ($ans =~ /^\s*$/) {
620 $ans = "c";
622 $ans = "y";
625 last if ($ans =~ /^y$/i || $ans =~ /^n$/i);
627 last if ($ans =~ /^c$/i);
633 if ($ans =~ /^c/i) {
636 if ($ans !~ /^y$/i) {
656 my $ans;
670 $ans = <STDIN>;
671 $ans =~ s/^\s*(.*\S)\s*$/$1/;
672 if ($ans =~ /^\s*$/) {
674 $ans = $default{$config};
680 $entered_configs{$config} = ${ans};
1288 my $ans = <STDIN>;
1289 chomp $ans;
1290 $default{"TEST_TYPE"} = $ans;
2802 my $ans = <STDIN>;
2803 chomp $ans;
2804 if ($ans eq "p" || $ans eq "P") {
2806 } elsif ($ans eq "f" || $ans eq "F") {
2808 } elsif ($ans eq "s" || $ans eq "S") {