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, 1 insertions, 1 deletions

diff --git a/pp_hot.c b/pp_hot.c
index f1bf9d4dd2..1348f3a6f5 100644
--- a/pp_hot.c
+++ b/pp_hot.c
@@ -1907,7 +1907,7 @@ PP(pp_iter)
 
     EXTEND(SP, 1);
     cx = &cxstack[cxstack_ix];
-    if (CxTYPE(cx) != CXt_LOOP)
+    if (!CxTYPE_is_LOOP(cx))
 	DIE(aTHX_ "panic: pp_iter");
 
     itersvp = CxITERVAR(cx);