From The RT System itself

This is with _61 ( perl -wc doesn't report any errors )

use strict;

for my $i (1..5) {
  if ( $i == 2 ) { next Loop; }
}

--
Helmut Jarausch
Lehrstuhl fuer Numerische Mathematik
Institute of Technology, RWTH Aachen
D 52056 Aachen, Germany

From @schwern

[RT_System - Sun Sep 19 20​:00​:34 1999]​:

This is with _61 ( perl -wc doesn't report any errors )

use strict;

for my $i (1..5) {
if ( $i == 2 ) { next Loop; }
}

I presume you're reporting that "perl -cw" does not report the lack of a
loop label as an error? This is correct because a loop label could be
created at run time. Its odd but can happen.

  $label = "Loop";
  eval qq[$label​: for(1..5) {
  foo();
  print "Never run"
  }];

  sub foo { for (1..5) { next Loop } }

One of the facts of life living with such a dynamic language.

The RT System itself - Status changed from 'stalled' to 'open'

@schwern - Status changed from 'open' to 'resolved'