Re: [PATCH] HERE mark in regex

[p5sagit/p5-mst-13.2.git] / op.c

diff --git a/op.c b/op.c
index 77a6267..5a51f9b 100644 (file)
--- a/op.c
+++ b/op.c
@@ -4216,6 +4216,9 @@ Perl_cv_undef(pTHX_ CV *cv)
        }
        CvPADLIST(cv) = Nullav;
     }
+    if (CvXSUB(cv)) {
+        CvXSUB(cv) = 0;
+    }
     CvFLAGS(cv) = 0;
 }