From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Thu, 3 Oct 2002 21:00:50 +0000 (+0000)
Subject: Fix a precedence problem.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=893dbd498249a3471ae1a5af6bbc8907ce70982f;p=p5sagit%2Fp5-mst-13.2.git

Fix a precedence problem.

p4raw-id: //depot/perl@17974
---

diff --git a/ext/Storable/t/integer.t b/ext/Storable/t/integer.t
index 33740d2..3d0c410 100644
--- a/ext/Storable/t/integer.t
+++ b/ext/Storable/t/integer.t
@@ -148,7 +148,7 @@ foreach (@processes) {
       # $eq =  && (($copy_s1 <=> 0) == ($copy1 <=> 0));
       # Split this into 2 tests, to cater for 5.005_03
 
-      my $bit =  ok (($copy_s1 ^ $copy1 == 0), "$process $copy1 (bitpattern)");
+      my $bit =  ok (($copy_s1 ^ $copy1) == 0, "$process $copy1 (bitpattern)");
       # This is sick. 5.005_03 survives without the IV/UV flag, and somehow
       # gets it right, providing you don't have side effects of conversion.
 #      local $TODO;