Lines Matching refs:ans
602 my $ans;
610 $ans = <STDIN>;
611 chomp $ans;
612 if ($ans =~ /^\s*$/) {
614 $ans = "c";
616 $ans = "y";
619 last if ($ans =~ /^y$/i || $ans =~ /^n$/i);
621 last if ($ans =~ /^c$/i);
627 if ($ans =~ /^c/i) {
630 if ($ans !~ /^y$/i) {
650 my $ans;
664 $ans = <STDIN>;
665 $ans =~ s/^\s*(.*\S)\s*$/$1/;
666 if ($ans =~ /^\s*$/) {
668 $ans = $default{$config};
674 $entered_configs{$config} = ${ans};
1267 my $ans = <STDIN>;
1268 chomp $ans;
1269 $default{"TEST_TYPE"} = $ans;
2759 my $ans = <STDIN>;
2760 chomp $ans;
2761 if ($ans eq "p" || $ans eq "P") {
2763 } elsif ($ans eq "f" || $ans eq "F") {
2765 } elsif ($ans eq "s" || $ans eq "S") {