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