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

1 files changed, 1 insertions, 0 deletions

diff --git a/op.c b/op.c
index 20661f8a98..949d8f427e 100644
--- 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 */