Re: [PATCH] Re: [perl #17772] pack "w" /* this cannot happen ;-) */ is fallacious

Message-ID: <20021027223108.GK292@Bagpuss.unfortu.net>

p4raw-id: //depot/perl@18069

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