From: Karl Williamson <khw@cpan.org>
Date: Wed, 27 Aug 2014 03:15:01 +0000 (-0600)
Subject: ext/re/t/regop.t: Use eq instead of == for strings
X-Git-Tag: v5.21.4~513
X-Git-Url: https://perl5.git.perl.org/perl5.git/commitdiff_plain/f410e802720b8edaf0128f0af008ac504e9d98bf

ext/re/t/regop.t: Use eq instead of == for strings

Interestingly, this bug has been unnoticed for almost 3 years.
---

diff --git a/ext/re/t/regop.t b/ext/re/t/regop.t
index a4f34eb..869b5a8 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