diff options
| -rwxr-xr-x | t/op/pack.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/t/op/pack.t b/t/op/pack.t index b7968dfd8a..663db4832b 100755 --- a/t/op/pack.t +++ b/t/op/pack.t @@ -182,7 +182,7 @@ sub list_eq ($$) { my $inf = eval '2**10000'; skip "Couldn't generate infinity - got error '$@'" - unless defined $inf and $inf == $inf / 2; + unless defined $inf and $inf == $inf / 2 and $inf + 1 == $inf; eval { $x = pack 'w', $inf }; like ($@, qr/^Cannot compress integer/); |