Syntactic Confectionery Delight PerlMonks

### Re^2: How does 'goto LABEL' search for its label? (call stack)

by moritz (Cardinal)
 on Jan 17, 2013 at 17:41 UTC ( #1013834=note: print w/replies, xml ) Need Help??

I had two problems with my mental model. I didn't remember that that if (0) { } gets optimized away. I also wrongly assumed that each block produces a stack frame.

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

I didn't find many details either, just that without it, the implementation of lexpads would be much simpler and saner.

Now I must go back and study the crufty error handling code I inherited, and see if it can be rescued (or if I can safely argue that it must be rewritten to use something saner).

Replies are listed 'Best First'.
Re^3: How does 'goto LABEL' search for its label? (work-around)
by tye (Sage) on Jan 17, 2013 at 19:42 UTC
just that without it, the implementation of lexpads would be much simpler and saner.

Yeah, that would have been my best guess. I'm curious about how "much" simplification we are talking about. But I'll go digging in the p5p archives for more details if I find the time and motivation. :)

I wonder if the complications could be avoided by having behavior closer to this pseudo-Perl code:

    if( $fatal ) ERR: { ... } [download] So that the destination for "goto ERR;" would be the start of the lexical block instead of the first line in the lexical block. It would be nice if a label pointing to the first line of a lexical block could just be moved to point to the start of the lexical block, avoiding the complexity and the need for deprecation. That is:  if($fatal ) {
OK:
... no need to deprecate this ...
}
if( $fatal ) { my$foo;
... "goto BAD" from outside this block deprecated ...
}
[download]

But, if one ends up using a Perl that has the deprecation but doesn't implement my idea, then it should often be relatively easy to rewrite the code to be more like:

    ...
if( $whatever ) { goto ERR; } ... if($fatal ) {
# Used to be "ERR:" here
goto ERR;
}
return ...;
ERR:
... code moved from if( \$fatal ) ...
[download]

- tye

Create A New User
Node Status?
node history
Node Type: note [id://1013834]
help
Chatterbox?
 [Corion]: thezip: If you want to open vim and can live with opening a second console window, use start "The results" vim.exe c:\path\to\logfile .log [thezip]: Ooops... I lied. I guess Cygwin is back. I'll just do a tail -f instead. Better. Sorry for the noise.

How do I use this? | Other CB clients
Other Users?
Others avoiding work at the Monastery: (13)
As of 2017-03-27 18:56 GMT
Sections?
Information?
Find Nodes?
Leftovers?
Voting Booth?
Should Pluto Get Its Planethood Back?

Results (321 votes). Check out past polls.