Remove redundant SvOOK_off (called implicitly by SvOK_off)
Marcus Holland-Moritz [Sun, 1 Aug 2004 10:19:46 +0000 (10:19 +0000)]
and merge identical cases.

p4raw-id: //depot/perl@23178

scope.c

diff --git a/scope.c b/scope.c
index d5b8b7f..8dfb6c6 100644 (file)
--- a/scope.c
+++ b/scope.c
@@ -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 */