use threads;
BEGIN { require Lexical::Types; }
sub X::DESTROY {
- eval 'use Lexical::Types; package Z; my Z $z = 1';
+ my $res = eval 'use Lexical::Types; sub Z::TYPEDSCALAR { 123 } my Z $z';
exit 1 if $@;
+ exit 2 if not defined $res or $res != 123;
}
threads->create(sub {
my $x = bless { }, 'X';