3 # Please keep this test this simple. (ie just one test.)
4 # There's some sort of not-croaking properly problem in Storable when built
5 # with 5.005_03. This test shows it up, whereas malice.t does not.
6 # In particular, don't use Test; as this covers up the problem.
14 require Config; import Config;
15 if ($ENV{PERL_CORE} and $Config{'extensions'} !~ /\bStorable\b/) {
16 print "1..0 # Skip: Storable was not built\n";
19 # require 'lib/st-dump.pl';
25 die "Oi! No! Don't change this test so that Carp is used before Storable"
26 if defined &Carp::carp;
28 use Storable qw(freeze thaw);
33 eval {thaw "\xFF\xFF"};
34 if ($@ =~ /Storable binary image v127.255 more recent than I am \(v2\.\d+\)/)
39 print "not ok $test # Expected a meaningful croak. Got '$@'\n";