sub A::DESTROY { die 'ok' }
my $obj = bless [], 'A';
$obj = ''; # no exception occurs
print "$@\n"; # "        (in cleanup) ok at - line 1."