Lines Matching refs:ans
537 my $ans;
545 $ans = <STDIN>;
546 chomp $ans;
547 if ($ans =~ /^\s*$/) {
549 $ans = "c";
551 $ans = "y";
554 last if ($ans =~ /^y$/i || $ans =~ /^n$/i);
556 last if ($ans =~ /^c$/i);
562 if ($ans =~ /^c/i) {
565 if ($ans !~ /^y$/i) {
585 my $ans;
599 $ans = <STDIN>;
600 $ans =~ s/^\s*(.*\S)\s*$/$1/;
601 if ($ans =~ /^\s*$/) {
603 $ans = $default{$config};
609 $entered_configs{$config} = ${ans};
1193 my $ans = <STDIN>;
1194 chomp $ans;
1195 $default{"TEST_TYPE"} = $ans;
2675 my $ans = <STDIN>;
2676 chomp $ans;
2677 if ($ans eq "p" || $ans eq "P") {
2679 } elsif ($ans eq "f" || $ans eq "F") {
2681 } elsif ($ans eq "s" || $ans eq "S") {