diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2002-10-14 17:49:54 +0300 |
|---|---|---|
| committer | hv <hv@crypt.org> | 2002-10-20 13:57:06 +0000 |
| commit | 71b080b801c57c8f0f77e61c098cba969cb6fe4d (patch) | |
| tree | b0e82fc5864cc74f904c46df5966d3999d6d1f20 /t/op/pack.t | |
| parent | 6143965086c75022cc1d4d1f3746302780985947 (diff) | |
| download | perl-71b080b801c57c8f0f77e61c098cba969cb6fe4d.tar.gz | |
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
Diffstat (limited to 't/op/pack.t')
| -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/); |