Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl-Sensitive Sunglasses
 
PerlMonks  

Re^2: How does 'goto LABEL' search for its label? (do-blocks)

by LanX (Canon)
on Jan 17, 2013 at 18:50 UTC ( #1013854=note: print w/ replies, xml ) Need Help??


in reply to Re: How does 'goto LABEL' search for its label? (call stack)
in thread How does 'goto LABEL' search for its label?

> As for there being a new warning for if(1){X:...} goto X:, I lack the details for why this got deprecated.

It's analogous to if(0) the constant block is optimized to a do-block╣ ...

> perl -MO=Deparse -E'if (1) { label: say 1;}; goto label' BEGIN { $^H{'feature_say'} = q(1); $^H{'feature_state'} = q(1); $^H{'feature_switch'} = q(1); } do { label: say 1 }; goto label;

... which seems to fall into the same category like other loop-like-blocks:

ATM I have only 5.10 available. Could someone please test this with >= 5.12?

perl -wE'do { label: say 1;}; goto label'

EDIT: removed exit

Update

here test code w/o endless looping.

perl -wE'my $x=0;do { label: say $x++; die if $x>1}; goto label' 0 1 Died at -e line 1.

Update

Thanks to davido for testing

[davido]: LanX: perl -E 'goto IN; do{ IN: say "Hello world\n";};' does + produce the warning on 5.16.2.

Cheers Rolf

╣) which is somehow strange, I expected a simple bare block.


Comment on Re^2: How does 'goto LABEL' search for its label? (do-blocks)
Select or Download Code

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1013854]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others studying the Monastery: (4)
As of 2014-09-16 23:59 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    How do you remember the number of days in each month?











    Results (53 votes), past polls