require './test.pl';
}
-plan tests => 5825;
+plan tests => 5826;
use strict;
use warnings;
# 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 };
}
}
}
+
+ok(pack('u2', 'AA'), "[perl #8026]"); # used to hang and eat RAM in perl 5.7.2
+