[perl #123287] last LABEL issues when last is called in BEGIN

# New Ticket Created by  Chad Granum 
# Please include the string:  [perl #123287]
# in the subject line of all future correspondence about this issue. 
# <URL: https://rt.perl.org/Ticket/Display.html?id=123287 >


This issue effects multiple versions of perl, but in different ways. I have
attached a test script that demonstrates the issue.

Here is the output in 5.20.1 and 5.10.1

5.20.1

    ok 1 - outer eval 1 completed
>     ok 2 - We can escape
>     ok 3 - outer eval 2 completed
>     not ok 4 - We can escape when there is a BEGIN between us and the
> escape point
>     #   Failed test 'We can escape when there is a BEGIN between us and
> the escape point'
>     #   at test.pl line 37.
>     1..4
>     # Looks like you failed 1 test of 4.


5.10.1

    ok 1 - outer eval 1 completed
>     ok 2 - We can escape
>     ok 3 - outer eval 2 completed
>     ok 4 - We can escape when there is a BEGIN between us and the escape
> point
>     1..4
>     segmentation fault

• [perl #123287] last LABEL issues when last is called in BEGIN by Father Chrysostomos via RT
• [perl #123287] last LABEL issues when last is called in BEGIN by Chad Granum