diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1998-10-25 06:33:43 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-10-25 06:33:43 +0000 |
| commit | 33c2748902d07b7ec367f87ad66e61e89f2aa994 (patch) | |
| tree | fde7996e8953d60e19976c0365224c3ba03cf565 /scope.c | |
| parent | 2e7e7c6ca2ccdf33926d1330538338beae355adb (diff) | |
| download | perl-33c2748902d07b7ec367f87ad66e61e89f2aa994.tar.gz | |
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
Diffstat (limited to 'scope.c')
| -rw-r--r-- | scope.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -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); |