diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2002-10-03 21:00:50 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2002-10-03 21:00:50 +0000 |
| commit | 893dbd498249a3471ae1a5af6bbc8907ce70982f (patch) | |
| tree | 07921907a39ee5be98f8b951c888e3f03197601d /ext | |
| parent | cb77fdf0e62f488063efd544deea3e13e215fac6 (diff) | |
| download | perl-893dbd498249a3471ae1a5af6bbc8907ce70982f.tar.gz | |
Fix a precedence problem.
p4raw-id: //depot/perl@17974
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/Storable/t/integer.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ext/Storable/t/integer.t b/ext/Storable/t/integer.t index 33740d2251..3d0c41070b 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; |