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 (file)
--- 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) {