I don't know of any inherent property you could check to see if next had fired. You could set a flag on entry and clear it at the end of the loop block:

my $next_flag;
for (@foo) {
    $next_flag = 1;
    # my $next_flag = 1; # scope problem
    # do stuff
    $next_flag = 0;
}
continue {
    warn 'nexted!' if $next_flag;
    # go on
}
[download]

Update: Thanks, ikegami, repaired.

Thanks to both of you for the suggestions, I kind of figured that was likely to be the case, but I was hoping there would be some existing function (or magicly accessible values) with similar information to that provided by caller.

Prowler
 - Spelling is a demanding task that requies you full attention.

Perl has an odd feature that you can next out of a block from within a subroutine. Ie:

sub mynext { next }
for (1..10) {
  mynext();
  print $_;
}
[download]

This usage will warn as its a form of action at a distance, but it is legal and can be useful^*. Thus you could put some caller-fu in mynext() and have it warn where it was called. This would require temporarily s/next/mynext()/g of course so IMO its not a route to be taken lightly. OTOH if its this type of stuff that is causing your problem in the first place then warnings will reveal all. You didnt show any code so its hard to say. :-)

^* An interesting example is its usage in the Test framework for handling SKIP blocks

---
$world=~s/war/peace/g

You need to remove the my for that code to work.

This is probably minimal:

foreach (@array) {
   $fall_through = 0;

   ...

   $fall_through = 1;
}
continue
{
   print($fall_through ? "Fell" : "Didn't fall", " through.\n");

   ...
}
[download]

Sound like you may want to use eval for this, and die instead of next:

foreach (@a) {
  eval {
    die 'reason1' if check_condition1();
    do_some_stuff();
    die 'reason2' if check_condition2();
    do_more_stuff();
    die 'reason3' if check_condition3();
    play_solitaire();
    do_something_if_all_ok();
  };
  # a *real* error, if it doesn't start with 'reason'
  die if $@ && $@ !~ /^reason/;
  # save reason; you never know what other evals happen
  my $reason = $@;
  # usual continue code here
  do_something_always();
  if($reason) {
    only_if_reason1() if $@ eq 'reason1'
  }
}
[download]

You may want to die with an object of some kind, to easily distinguish between 'real' error, and your type of conditions.

Update: corrected the die regex to Do The Right Thang

Thanks for the suggestion, but I assume you mean:

die if $@ && $@ !~ /^reason/
[download]

rather than '=~'.

Prowler
 - Spelling is a demanding task that requies you full attention.

yup. sorry. will update now...