Carp: correct precedence of ord and == in tests
authorRicardo Signes <rjbs@cpan.org>
Sun, 15 Mar 2015 00:43:35 +0000 (20:43 -0400)
committerRicardo Signes <rjbs@cpan.org>
Sun, 15 Mar 2015 00:43:35 +0000 (20:43 -0400)
dist/Carp/t/arg_regexp.t
dist/Carp/t/arg_string.t

index 15a2e00..a913b8c 100644 (file)
@@ -13,7 +13,7 @@ sub rx { qr/$_[0]/ }
 # releases, U+E9 is 0x51 on all EBCDIC code pages supported then.
 my $e9 = sprintf "%02x", (($] ge 5.007_003)
                           ? utf8::unicode_to_native(0xe9)
-                          : ((ord("A" == 193))
+                          : ((ord("A") == 193)
                              ? 0x51
                              : 0xE9));
 my $chr_e9 = chr eval "0x$e9";
index a6c2749..42b43b1 100644 (file)
@@ -12,7 +12,7 @@ sub lm { lmm() }
 # releases, U+E9 is 0x51 on all EBCDIC code pages supported then.
 my $e9 = sprintf "%02x", (($] ge 5.007_003)
                           ? utf8::unicode_to_native(0xe9)
-                          : ((ord("A" == 193))
+                          : ((ord("A") == 193)
                              ? 0x51
                              : 0xE9));
 my $chr_e9 = chr utf8::unicode_to_native(0xe9);