[PATCH] Increment cop_seqmax in utilize()
[p5sagit/p5-mst-13.2.git] / op.c
diff --git a/op.c b/op.c
index 304cf46..1366976 100644 (file)
--- a/op.c
+++ b/op.c
@@ -2931,6 +2931,7 @@ Perl_utilize(pTHX_ int aver, I32 floor, OP *version, OP *idop, OP *arg)
     PL_hints |= HINT_BLOCK_SCOPE;
     PL_copline = NOLINE;
     PL_expect = XSTATE;
+    PL_cop_seqmax++; /* Purely for B::*'s benefit */
 }
 
 /*