diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1999-03-25 06:21:05 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-03-25 06:21:05 +0000 |
| commit | 358b5eb8e3f1439968234b2c14fbc5167287307f (patch) | |
| tree | 7d833bd8480e1521b7ed44e20ebce9471081a72c /ext | |
| parent | 293d3ffa4862e7bfbef41f6f8f5e54959b0fc5e3 (diff) | |
| download | perl-358b5eb8e3f1439968234b2c14fbc5167287307f.tar.gz | |
fix refcnt on PL_main_cv (variant of suggestion by Vishal Bhatia
<vishalb@hotmail.com>)
p4raw-id: //depot/perl@3165
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/B/B/C.pm | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/ext/B/B/C.pm b/ext/B/B/C.pm index 302b790782..ec39de2674 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) { |