Lines Matching refs:results
50 my $results = $Is_VMS ?
60 $results =~ s/\n+$//;
62 $results =~ s/tmp\d+/-/g;
63 $results =~ s/\n%[A-Z]+-[SIWEF]-.*$// if $Is_VMS; # clip off DCL status msg
66 $results =~ s/^(syntax|parse) error/syntax error/mig;
68 my $prefix = ($results =~ s/^PREFIX\n//) ;
69 if ( $results =~ s/^SKIPPED\n//) {
70 print "$results\n" ;
72 elsif (($prefix and $results !~ /^\Q$expected/) or
73 (!$prefix and $results ne $expected)){
76 print STDERR "GOT:\n$results\n";