From: Gurusamy Sarathy <gsar@cpan.org>
Date: Thu, 25 Mar 1999 06:21:05 +0000 (+0000)
Subject: fix refcnt on PL_main_cv (variant of suggestion by Vishal Bhatia
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=358b5eb8e3f1439968234b2c14fbc5167287307f;p=p5sagit%2Fp5-mst-13.2.git

fix refcnt on PL_main_cv (variant of suggestion by Vishal Bhatia
<vishalb@hotmail.com>)

p4raw-id: //depot/perl@3165
---

diff --git a/ext/B/B/C.pm b/ext/B/B/C.pm
index 302b790..ec39de2 100644
--- a/ext/B/B/C.pm
+++ b/ext/B/B/C.pm
@@ -679,6 +679,7 @@ sub B::CV::save {
 
     if (${$cv->OUTSIDE} == ${main_cv()}){
 	$init->add(sprintf("CvOUTSIDE(s\\_%x)=PL_main_cv;",$$cv));
+	$init->add(sprintf("SvREFCNT_inc(PL_main_cv);"));
     }
 
     if ($$gv) {