Server : Apache System : Linux dedi-14684855.grupobig.com 5.14.0-611.49.1.el9_7.x86_64 #1 SMP PREEMPT_DYNAMIC Tue Apr 21 16:39:08 EDT 2026 x86_64 User : grupo692 ( 1004) PHP Version : 8.2.31 Disable Function : NONE Directory :  /home/.cpan/build/Storable-3.25-0/t/

Upload File : current_dir [ Writeable ] document_root [ Writeable ]

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