Split CXt_LOOP into CXt_LOOP_PLAIN and CXt_LOOP_FOR, eliminating the

CXp_FOREACH flag added as part of given/when.

p4raw-id: //depot/perl@33057

1 files changed, 2 insertions, 1 deletions

diff --git a/scope.c b/scope.c
index 9cbd13ce24..74a3be0d97 100644
--- a/scope.c
+++ b/scope.c
@@ -1083,7 +1083,8 @@ Perl_cx_dump(pTHX_ PERL_CONTEXT *cx)
 		PTR2UV(cx->blk_eval.retop));
 	break;
 
-    case CXt_LOOP:
+    case CXt_LOOP_FOR:
+    case CXt_LOOP_PLAIN:
 	PerlIO_printf(Perl_debug_log, "BLK_LOOP.LABEL = %s\n", CxLABEL(cx));
 	PerlIO_printf(Perl_debug_log, "BLK_LOOP.RESETSP = %ld\n",
 		(long)cx->blk_loop.resetsp);