Viewing: destroy.t

# [perl #118139] crash in global destruction when accessing the freed cxt. use Test::More tests => 1; use Storable; BEGIN { store {}, "foo"; } package foo; sub new { return bless {} } DESTROY { open FH, '<', "foo" or die $!; eval { Storable::pretrieve(*FH); }; close FH or die $!; unlink "foo"; } package main; # print "# $^X\n"; $x = foo->new(); ok(1); Return