Lines Matching refs:ans
532 my $ans;
540 $ans = <STDIN>;
541 chomp $ans;
542 if ($ans =~ /^\s*$/) {
544 $ans = "c";
546 $ans = "y";
549 last if ($ans =~ /^y$/i || $ans =~ /^n$/i);
551 last if ($ans =~ /^c$/i);
557 if ($ans =~ /^c/i) {
560 if ($ans !~ /^y$/i) {
580 my $ans;
594 $ans = <STDIN>;
595 $ans =~ s/^\s*(.*\S)\s*$/$1/;
596 if ($ans =~ /^\s*$/) {
598 $ans = $default{$config};
604 $entered_configs{$config} = ${ans};
1182 my $ans = <STDIN>;
1183 chomp $ans;
1184 $default{"TEST_TYPE"} = $ans;
2644 my $ans = <STDIN>;
2645 chomp $ans;
2646 if ($ans eq "p" || $ans eq "P") {
2648 } elsif ($ans eq "f" || $ans eq "F") {
2650 } elsif ($ans eq "s" || $ans eq "S") {