On Wed, Aug 27, 2003 a.d., Mark-Jason Dominus wrote:
>         $label = 'A';
>         A: for my $a (1..3) {
>           print $a;
>           next $label;
>           print "x";
>         }
> 
> I want 'next $label' to be equivalent to 'next A' when $label contains 'A'.
> 
> If nexts were defined at compile time as jumps, this would be
> impossible.  But they're not; they're defined at run time.  So this
> should be possible, perhaps even easy.  

Basically, let pp_next be a SVOP instead of a PVOP in that case.
(just like y/// is a SVOP when translating to/from utf8).

But is it worth the overhead of yet another special case (and another
test in pp_next) ? (just asking).

I'm currently using the ugly:

#! perl
$a = "LOOP";
LOOP: for (1, 2, 3) {
    eval "next $a";
}
__END__

Regards,
Adi