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 /scope.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 'scope.c')
| -rw-r--r-- | scope.c | 4 |
1 files changed, 0 insertions, 4 deletions
@@ -912,10 +912,6 @@ Perl_leave_scope(pTHX_ I32 base) PL_op = (OP*)SSPOPPTR; break; case SAVEt_HINTS: - if (GvHV(PL_hintgv)) { - SvREFCNT_dec((SV*)GvHV(PL_hintgv)); - GvHV(PL_hintgv) = NULL; - } *(I32*)&PL_hints = (I32)SSPOPINT; break; case SAVEt_COMPPAD: |