1# [perl #118139] crash in global destruction when accessing the freed cxt. 2use Test::More tests => 1; 3use Storable; 4BEGIN { 5 store {}, "foo"; 6} 7package foo; 8sub new { return bless {} } 9DESTROY { 10 open FH, '<', "foo" or die $!; 11 eval { Storable::pretrieve(*FH); }; 12 close FH or die $!; 13 unlink "foo"; 14} 15 16package main; 17# print "# $^X\n"; 18$x = foo->new(); 19 20ok(1); 21