From: Stephen McCamant <smcc@mit.edu>
Date: Sat, 21 May 2005 21:52:31 +0000 (-0700)
Subject: Re: [patch] teach B::Concise to see XS code
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=8f476eeebdd5d13ca310ece2133d68d90cd3e69c;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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 */