fix refcnt on PL_main_cv (variant of suggestion by Vishal Bhatia
Gurusamy Sarathy [Thu, 25 Mar 1999 06:21:05 +0000 (06:21 +0000)]
<vishalb@hotmail.com>)

p4raw-id: //depot/perl@3165

ext/B/B/C.pm

index 302b790..ec39de2 100644 (file)
@@ -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) {