exiting an eval block inside a loop?

[Deane . Rothenmaier]

Gurus,

I've looked in the Camel and Leopard, and they're mum on this topic.  Is 
it possible/permitted to exit an eval block that's running inside a loop, 
or will that break something?  Quickie example code:

LABEL: until ($foo eq q{}) {
   $foo = $array{$ndx++};
 
   eval {
      for ($foo) {
         /^abc/o && do {
            next LABEL if ($_ =~ /ZZZ$/);  # CAN I DO THIS?
            # do something
         };
         /^def/o && do {
            next LABEL if ($_ =~ /RST$/);
            # do something else
         };
      }
   };
   $@ and die "Error in string value";
}

Deane Rothenmaier
Systems Architect
Walgreens Corp.
847-914-5150

"On two occasions I have been asked [by members of Parliament], 'Pray, Mr. 
Babbage, if you put into the machine wrong figures, will the right answers 
come out?' I am not able rightly to apprehend the kind of confusion of 
ideas that could provoke such a question." -- Charles Babbage
_______________________________________________
ActivePerl mailing list
ActivePerl@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs