diff options
| -rw-r--r-- | ext/re/t/regop.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ext/re/t/regop.t b/ext/re/t/regop.t index a4f34eb3bb..869b5a803b 100644 --- a/ext/re/t/regop.t +++ b/ext/re/t/regop.t @@ -14,7 +14,7 @@ our $NUM_SECTS; chomp(my @strs= grep { !/^\s*\#/ } <DATA>); my $out = runperl(progfile => "t/regop.pl", stderr => 1 ); # VMS currently embeds linefeeds in the output. -$out =~ s/\cJ//g if $^O == 'VMS'; +$out =~ s/\cJ//g if $^O eq 'VMS'; my @tests = grep { /\S/ } split /(?=Compiling REx)/, $out; # on debug builds we get an EXECUTING... message in there at the top shift @tests |