diff options
| author | Karl Williamson <khw@cpan.org> | 2014-08-26 21:15:01 -0600 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2014-08-26 21:47:28 -0600 |
| commit | f410e802720b8edaf0128f0af008ac504e9d98bf (patch) | |
| tree | d19064f6c626c505e346f94ac60b22a10a04acc6 /ext/re | |
| parent | 0ec38c0a463b7ea7bfa74c296c06ea3ad4d1df12 (diff) | |
| download | perl-f410e802720b8edaf0128f0af008ac504e9d98bf.tar.gz | |
ext/re/t/regop.t: Use eq instead of == for strings
Interestingly, this bug has been unnoticed for almost 3 years.
Diffstat (limited to 'ext/re')
| -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 |