diff options
| author | Nicholas Clark <nick@ccl4.org> | 2002-10-27 22:31:08 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2002-10-28 20:44:12 +0000 |
| commit | 92b5f8d10a61fa2f07cadd651b15112c54e27db5 (patch) | |
| tree | 57ec4f21e4eacea815e510ac00900e73e4016bc2 /t/op/pack.t | |
| parent | 0ea9712b286c76e597ffb03868653e8d27bd971a (diff) | |
| download | perl-92b5f8d10a61fa2f07cadd651b15112c54e27db5.tar.gz | |
Re: [PATCH] Re: [perl #17772] pack "w" /* this cannot happen ;-) */ is fallacious
Message-ID: <20021027223108.GK292@Bagpuss.unfortu.net>
p4raw-id: //depot/perl@18069
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 663db4832b..f047889155 100755 --- a/t/op/pack.t +++ b/t/op/pack.t @@ -192,7 +192,7 @@ sub list_eq ($$) { # This should be about the biggest thing possible on an IEEE double my $big = eval '2**1023'; - skip "Couldn't generate 2**1023 - got error '$@'" + skip "Couldn't generate 2**1023 - got error '$@'", 3 unless defined $big and $big != $big / 2; eval { $x = pack 'w', $big }; |