Lines Matching refs:ans
604 my $ans;
612 $ans = <STDIN>;
613 chomp $ans;
614 if ($ans =~ /^\s*$/) {
616 $ans = "c";
618 $ans = "y";
621 last if ($ans =~ /^y$/i || $ans =~ /^n$/i);
623 last if ($ans =~ /^c$/i);
629 if ($ans =~ /^c/i) {
632 if ($ans !~ /^y$/i) {
652 my $ans;
666 $ans = <STDIN>;
667 $ans =~ s/^\s*(.*\S)\s*$/$1/;
668 if ($ans =~ /^\s*$/) {
670 $ans = $default{$config};
676 $entered_configs{$config} = ${ans};
1276 my $ans = <STDIN>;
1277 chomp $ans;
1278 $default{"TEST_TYPE"} = $ans;
2774 my $ans = <STDIN>;
2775 chomp $ans;
2776 if ($ans eq "p" || $ans eq "P") {
2778 } elsif ($ans eq "f" || $ans eq "F") {
2780 } elsif ($ans eq "s" || $ans eq "S") {