This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
[perl #118139] Storable 2.42 - die in global destruction
[perl5.git] / dist / Storable / t / destroy.t
1 # [perl #118139] crash in global destruction when accessing an
2 # already freed PL_modglobal or accessing the freed cxt.
3 use Test;
4 use Storable;
5 BEGIN {
6   plan tests => 1;
7   store {}, "foo";
8 }
9 package foo;
10 sub new { return bless {} }
11 DESTROY {
12   open $fh, "<", "foo";
13   eval { Storable::pretrieve($fh); };
14   unlink "foo";
15 }
16
17 package main;
18 # print "# $^X\n";
19 $x = foo->new();
20
21 ok(1);