Lines Matching refs:results
117 my $results = $Is_VMS ?
127 $results =~ s/\n+$//;
129 $results =~ s/tmp\d+/-/g;
132 $results =~ s/\n?%[A-Z]+-[SIWEF]-[A-Z]+,.*//;
135 $results =~ s/\n\n/\n/g;
139 $results =~ s/^(syntax|parse) error/syntax error/mig;
141 $results =~ s/Scalars leaked: \d+\n//g;
145 $results =~ s|:abc\.pm\b|abc.pm|g;
146 $results =~ s|:abc(d)?\b|./abc$1|g;
150 my $prefix = ($results =~ s#^PREFIX(\n|$)##) ;
169 if ( $results =~ s/^SKIPPED\n//) {
170 print "$results\n" ;
174 print "not " if !randomMatch($results, $expected);
176 elsif (($prefix && (( $option_regex && $results !~ /^$expected/) ||
177 (!$option_regex && $results !~ /^\Q$expected/))) or
178 (!$prefix && (( $option_regex && $results !~ /^$expected/) ||
179 (!$option_regex && $results ne $expected)))) {
182 print STDERR "GOT:\n$results\n";