[perl #122107] test that BEGIN blocks with errors don't remain named subs
[perl #122107] ensure that BEGIN blocks with errors don't remain named subs