SAVEt_CLEARSV: only clear-in-place if RC==1

Currently it takes the 'clear-in-place' branch on lexical vars if
the ref count is <= 1. However, RC < 1 is a "should never happen"
condition, so rather than keeping that damaged var, take the other branch,
which will call SvREFCNT_dec() on it, which will Do the Right Thing
(like emitting a warning).

1 files changed, 1 insertions, 1 deletions

diff --git a/scope.c b/scope.c
index d32622062d..4c4f5274d0 100644
--- a/scope.c
+++ b/scope.c
@@ -1039,7 +1039,7 @@ Perl_leave_scope(pTHX_ I32 base)
                 assert(SvPADMY(sv));
 
                 /* Can clear pad variable in place? */
-                if (SvREFCNT(sv) <= 1 && !SvOBJECT(sv)) {
+                if (SvREFCNT(sv) == 1 && !SvOBJECT(sv)) {
 
                     /* these flags are the union of all the relevant flags
                      * in the individual conditions within */