package Mod { DESTROY { eval { } } }

eval {
   my $x = bless( {}, "Mod" );
   die( "xxx\n" );
};

print $@ || "[undef]\n";

##</code><code>##

$ 5.12t/bin/perl a.pl
[undef]

##</code><code>##

$ 5.14t/bin/perl a.pl
xxx