Lines Matching refs:ans
600 my $ans;
608 $ans = <STDIN>;
609 chomp $ans;
610 if ($ans =~ /^\s*$/) {
612 $ans = "c";
614 $ans = "y";
617 last if ($ans =~ /^y$/i || $ans =~ /^n$/i);
619 last if ($ans =~ /^c$/i);
625 if ($ans =~ /^c/i) {
628 if ($ans !~ /^y$/i) {
648 my $ans;
662 $ans = <STDIN>;
663 $ans =~ s/^\s*(.*\S)\s*$/$1/;
664 if ($ans =~ /^\s*$/) {
666 $ans = $default{$config};
672 $entered_configs{$config} = ${ans};
1253 my $ans = <STDIN>;
1254 chomp $ans;
1255 $default{"TEST_TYPE"} = $ans;
2724 my $ans = <STDIN>;
2725 chomp $ans;
2726 if ($ans eq "p" || $ans eq "P") {
2728 } elsif ($ans eq "f" || $ans eq "F") {
2730 } elsif ($ans eq "s" || $ans eq "S") {