Change 18037: [PATCH] t/op/pack.t: Tru64 5.1A gcc 3.2.1 no inf

[hv]

Change 18037 by [EMAIL PROTECTED] on 2002/10/20 13:57:06

        Subject: [PATCH] t/op/pack.t: Tru64 5.1A gcc 3.2.1 no inf
        From: Jarkko Hietaniemi <[EMAIL PROTECTED]>
        Date: Mon, 14 Oct 2002 14:49:54 +0300
        Message-ID: <[EMAIL PROTECTED]>

Affected files ...

.... //depot/perl/t/op/pack.t#73 edit

Differences ...

==== //depot/perl/t/op/pack.t#73 (xtext) ====
Index: perl/t/op/pack.t
--- perl/t/op/pack.t#72~18010~  Sat Oct 12 08:31:06 2002
+++ perl/t/op/pack.t    Sun Oct 20 06:57:06 2002
@@ -182,7 +182,7 @@
     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/);
End of Patch.