Re: [patch] teach B::Concise to see XS code

Message-ID: <17040.4111.265639.434150@apocalypse.OCF.Berkeley.EDU>

Correctly nullify CvSTART when undef'ing a CV

p4raw-id: //depot/perl@24654

diff --git a/op.c b/op.c
index 20661f8..949d8f4 100644 (file)
--- a/op.c
+++ b/op.c
@@ -4062,6 +4062,7 @@ Perl_cv_undef(pTHX_ CV *cv)
 
        op_free(CvROOT(cv));
        CvROOT(cv) = Nullop;
+       CvSTART(cv) = Nullop;
        LEAVE;
     }
     SvPOK_off((SV*)cv);                /* forget prototype */