From 33c2748902d07b7ec367f87ad66e61e89f2aa994 Mon Sep 17 00:00:00 2001 From: Gurusamy Sarathy Date: Sun, 25 Oct 1998 06:33:43 +0000 Subject: integrate changes#1982,2014,2021 (from maint-5.005) p4raw-link: @2021 on //depot/maint-5.005/perl: ece095e7b265a16d4ec3543b1418100f9c635a87 p4raw-link: @2014 on //depot/maint-5.005/perl: cca0b9804acab4b7678c0f185888d57497a5c2a9 p4raw-link: @1982 on //depot/maint-5.005/perl: fe676099d996f70caaedeb6ae85adc3ee59d2240 p4raw-id: //depot/perl@2059 --- scope.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'scope.c') diff --git a/scope.c b/scope.c index b7a40ca0b1..020713f285 100644 --- a/scope.c +++ b/scope.c @@ -813,7 +813,7 @@ leave_scope(I32 base) if (ptr) { sv = *(SV**)ptr; if (sv && sv != &PL_sv_undef) { - if (SvRMAGICAL(av) && mg_find((SV*)av, 'P')) + if (SvTIED_mg((SV*)av, 'P')) (void)SvREFCNT_inc(sv); SvREFCNT_dec(av); goto restore_sv; @@ -831,7 +831,7 @@ leave_scope(I32 base) SV *oval = HeVAL((HE*)ptr); if (oval && oval != &PL_sv_undef) { ptr = &HeVAL((HE*)ptr); - if (SvRMAGICAL(hv) && mg_find((SV*)hv, 'P')) + if (SvTIED_mg((SV*)hv, 'P')) (void)SvREFCNT_inc(*(SV**)ptr); SvREFCNT_dec(hv); SvREFCNT_dec(sv); -- cgit v1.2.1