Lines Matching refs:ans
521 my $ans;
529 $ans = <STDIN>;
530 chomp $ans;
531 if ($ans =~ /^\s*$/) {
533 $ans = "c";
535 $ans = "y";
538 last if ($ans =~ /^y$/i || $ans =~ /^n$/i);
540 last if ($ans =~ /^c$/i);
546 if ($ans =~ /^c/i) {
549 if ($ans !~ /^y$/i) {
569 my $ans;
583 $ans = <STDIN>;
584 $ans =~ s/^\s*(.*\S)\s*$/$1/;
585 if ($ans =~ /^\s*$/) {
587 $ans = $default{$config};
593 $entered_configs{$config} = ${ans};
1171 my $ans = <STDIN>;
1172 chomp $ans;
1173 $default{"TEST_TYPE"} = $ans;
2624 my $ans = <STDIN>;
2625 chomp $ans;
2626 if ($ans eq "p" || $ans eq "P") {
2628 } elsif ($ans eq "f" || $ans eq "F") {
2630 } elsif ($ans eq "s" || $ans eq "S") {