From 65c5011456bf74c702f7584e00961bc2bf3ea4f1 Mon Sep 17 00:00:00 2001 From: Jarkko Hietaniemi Date: Tue, 20 Feb 2001 17:36:53 +0000 Subject: 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..) --- scope.c | 4 ---- 1 file changed, 4 deletions(-) (limited to 'scope.c') diff --git a/scope.c b/scope.c index 527593542c..f0efaf82e0 100644 --- a/scope.c +++ b/scope.c @@ -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: -- cgit v1.2.1