Re: [FWP] awww, no fun :(

["Bernie Cosell" <bernie@fantasyfarm.com>]

On 12 Apr 2001, at 13:34, Randal L. Schwartz wrote:

> No, it's deliberately worked that way since Perl version 1 (maybe 2)
> when last/next/redo were created.
> 
> That's to be able to write loop controls like:
> 
> sub last_OUTER_if_int { last OUTER; }
> 
> { local $SIG{INT} = 'last_if_int';
> 
>   OUTER: while ($some_cond) {
>     ...
>     ...
>     ...
>     ...
>   }
> }

So how do you pass the label in as an argument --- you certainly don't 
want to hardwire the label, right?   It is one thing to have non-local 
actions like this, but it strikes me as a lot less than elegant if I have 
to hardwire a label from one part of my program into a remote part...

Are we having fun yet..:o)  

  /Bernie\
-- 
Bernie Cosell                     Fantasy Farm Fibers
mailto:bernie@fantasyfarm.com     Pearisburg, VA
    -->  Too many people, too few sheep  <--          

==== Want to unsubscribe from Fun With Perl?  Well, if you insist...
==== Send email to <fwp-request@technofile.org> with message _body_
====   unsubscribe