From 5c85b638cb45ea2b8e5d70bfa899f2db6085e85c Mon Sep 17 00:00:00 2001
From: David Mitchell <davem@iabyn.com>
Date: Fri, 28 Feb 2014 18:35:02 +0000
Subject: [PATCH] SAVEt_CLEARSV: expand SvOK_off() macro

the next commit will change thinks that affect only part of the macro
---
 scope.c | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/scope.c b/scope.c
index 23ade78..6bef7b0 100644
--- a/scope.c
+++ b/scope.c
@@ -1090,7 +1090,11 @@ Perl_leave_scope(pTHX_ I32 base)
                         break;
                     }
                     default:
-                        SvOK_off(sv);
+                        assert_not_ROK(sv);
+                        assert_not_glob(sv);
+                        SvFLAGS(sv) &=~ (SVf_OK|SVf_IVisUV|SVf_UTF8);
+                        if (SvOOK(sv))
+                            sv_backoff(sv);
                         break;
                     }
                     SvPADSTALE_on(sv); /* mark as no longer live */
-- 
2.7.4