diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-02-20 17:36:53 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-02-20 17:36:53 +0000 |
| commit | 65c5011456bf74c702f7584e00961bc2bf3ea4f1 (patch) | |
| tree | d29b17605cceff9034a01c16e75a4e3f558e050a /gv.c | |
| parent | cbebf3444d32314df9db7cb3988b6c97da05aa13 (diff) | |
| download | perl-65c5011456bf74c702f7584e00961bc2bf3ea4f1.tar.gz | |
Integrate pureperl changes #8844,8845,8850 to mainline
(via maintperl #8855).
Fixed %^H scoping bug
Removed GV <-> CV refcount loop
Removed %ENV refcount loop
p4raw-link: @8850 on //depot/maint-5.6/pureperl: bae1eca58b94313e4b7677aa241da9fad57bb363
p4raw-link: @8845 on //depot/maint-5.6/pureperl: 4d40626c12bbdd62acfbbe3be104711e58cec2f7
p4raw-link: @8844 on //depot/maint-5.6/pureperl: ea100fc6cfd2f0e23aceb84ac0e804e3c9c3c9a2
p4raw-id: //depot/perl@8858
p4raw-integrated: from //depot/maint-5.6/perl@8857 'merge in' gv.c
scope.c (@8606..) pp.c (@8635..) op.c (@8758..) perl.c
(@8806..)
Diffstat (limited to 'gv.c')
| -rw-r--r-- | gv.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -125,7 +125,7 @@ Perl_gv_init(pTHX_ GV *gv, HV *stash, const char *name, STRLEN len, int multi) LEAVE; PL_sub_generation++; - CvGV(GvCV(gv)) = (GV*)SvREFCNT_inc(gv); + CvGV(GvCV(gv)) = gv; CvFILE(GvCV(gv)) = CopFILE(PL_curcop); CvSTASH(GvCV(gv)) = PL_curstash; #ifdef USE_THREADS |