Front page | perl.perl5.porters |
Postings from January 2017
Similar and related:
$ perl -lwe 'sub aaa ($$) { goto FOO; FOO: $_[0] <=> $_[1] } print sort aaa (7, 3, 5, 2)'
Can't "goto" out of a pseudo block at -e line 1.
$ perl -lwe 'sub aaa ($$) { {; goto FOO; FOO: $_[0] <=> $_[1] } } print sort aaa (7, 3, 5, 2)'
2357
The check for exiting a pseudo block is being applied too soon. It needs
to be postponed until after the check for a goto label at the outermost
layer within the pseudo block. [perl #113936] has the same cause too.
-zefram
Thread Next