Path: utzoo!utgpu!news-server.csri.toronto.edu!rpi!zaphod.mps.ohio-state.edu!caen!Firewall!uunet!mcsun!ukc!stl!stc!graham
From: graham@tcom.stc.co.uk (Graham Bardsley)
Newsgroups: comp.lang.perl
Subject: Re: next label not reported as a bad label in BLOCK
Message-ID: <1991Jun14.140511.20150@tcom.stc.co.uk>
Date: 14 Jun 91 14:05:11 GMT
References: <1991Jun13.092118.308@tcom.stc.co.uk> <1991Jun13.184509.20813@iWarp.intel.com>
Sender: news@tcom.stc.co.uk (System Administration)
Organization: BNR Europe, New Southgate, London, N11 1HB
Lines: 17

In article <1991Jun13.184509.20813@iWarp.intel.com> merlyn@iWarp.intel.com (Randal L. Schwartz) writes:
>
>Gack.  Looks like perfectly reasonable code to me.  I often find
>myself doing things like:
>
>	next MAIN if $some_condition; # (go to next one, in this case exit)
>...
>Not a bug.  A feature.  And a nice one at that.

Yup - I've made a fool of myself again, I had it in my head that it would loop
and of course it doesn't; maybe I was thinking of redo after all....

Thanks.
-- 
Graham Bardsley,NT Europe Ltd,Oakleigh Road South,New Southgate,London, N11 1HB
..{uunet,mcsun}!ukc!stc!graham   <graham@tcom.stc.co.uk>  Tel: +44 81 945 3799
Just:{$another=$_='Perl novice';tr/cenoiv/erhakc/if$i;next unless$i++;}print;')'