From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Mon, 14 Oct 2002 14:49:54 +0000 (+0300)
Subject: t/op/pack.t: Tru64 5.1A gcc 3.2.1 no inf
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=71b080b801c57c8f0f77e61c098cba969cb6fe4d;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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/);