Fix *ENV refcnt issue #112

rurban · Feb 11, 2013 · bb4a83e · bb4a83e
1 parent 0208038
commit bb4a83e
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/lib/B/C.pm b/lib/B/C.pm
@@ -3038,6 +3038,8 @@ if (0) {
   }
   if ($fullname eq 'main::ENV') {
     $init->add(qq[$sym = PL_envgv;]);
+    my $refcnt = $gv->REFCNT;
+    $init->add( sprintf( "SvREFCNT($sym) += %u;", $refcnt ) ) if $refcnt > 0;
     return $sym;
   }
   # defer to the end because we remove compiler-internal and skipped stuff