my $fail= eval {
        {
            my $obj= My::Mod->new();
            $obj->DESTROY();
        }
        1
    };
    print "not "
        unless $fail  &&  $@ =~ /destroyed NULL/;
    print "ok 19\n";