diff options
| -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 }; |