t/op/pack.t: Tru64 5.1A gcc 3.2.1 no inf

Message-ID: <20021014114954.GB80937@lyta.hut.fi>

p4raw-id: //depot/perl@18037

diff --git a/t/op/pack.t b/t/op/pack.t
index b7968df..663db48 100755 (executable)
--- 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/);