[perl #22132] 5.8.0: goto inside any loop causes seg-fault when exiting loop

> [jmahood - Wed May 07 08:18:05 2003]:
> 
> Under 5.8.0, it seems that any loop (for, while, do while) that
> contains a
> label and a goto causes a segmentation fault when the loop's end
> condition is
> met.
> 
> for ($x=0; $x < 5; $x++) {
>          goto FOO;
>          FOO:
>          print "$x\n";
> }
> 
> ....results in:
> 
> 0
> 1
> 2
> 3
> 4
> Segmentation fault
> 
> .... whereas inserting "last if ($x == 4);" at the end of the loop
> breaks it
> without the seg fault.
> 

I did not get the segmentation fault when testing with Perl 5.8.4, so
I'm guessing this bug was fixed somewhere between 5.8.1 and 5.8.4.

• Smoke [blead] v5.15.0-330-g4000c4d FAIL(F) linux 2.6.38-8-generic [debian] (x86_64/8 cpu) by George Greer
• [perl #22132] 5.8.0: goto inside any loop causes seg-fault when exiting loop by Steve Peters via RT