# [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);