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