From: Marcus Holland-Moritz <mhx-perl@gmx.net>
Date: Sun, 1 Aug 2004 10:19:46 +0000 (+0000)
Subject: Remove redundant SvOOK_off (called implicitly by SvOK_off)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f21bcf309435bda41f845b43439ffc30143fabe0;p=p5sagit%2Fp5-mst-13.2.git

Remove redundant SvOOK_off (called implicitly by SvOK_off)
and merge identical cases.

p4raw-id: //depot/perl@23178
---

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