diff options
author | Marcus Holland-Moritz <mhx-perl@gmx.net> | 2004-08-01 10:19:46 +0000 |
---|---|---|
committer | Marcus Holland-Moritz <mhx-perl@gmx.net> | 2004-08-01 10:19:46 +0000 |
commit | f21bcf309435bda41f845b43439ffc30143fabe0 (patch) | |
tree | 180a66f0ba932c1094c11b8bb876312307ffc309 /scope.c | |
parent | 1990e48c66466d2315d6307ae43a02140969e8dc (diff) | |
download | perl-f21bcf309435bda41f845b43439ffc30143fabe0.tar.gz |
Remove redundant SvOOK_off (called implicitly by SvOK_off)
and merge identical cases.
p4raw-id: //depot/perl@23178
Diffstat (limited to 'scope.c')
-rw-r--r-- | scope.c | 6 |
1 files changed, 0 insertions, 6 deletions
@@ -933,14 +933,8 @@ Perl_leave_scope(pTHX_ I32 base) break; case SVt_PVCV: Perl_croak(aTHX_ "panic: leave_scope pad code"); - case SVt_RV: - case SVt_IV: - case SVt_NV: - (void)SvOK_off(sv); - break; default: (void)SvOK_off(sv); - (void)SvOOK_off(sv); break; } SvPADSTALE_on(sv); /* mark as no longer live */ |