SAVEt_CLEARSV: simplify SvREADONLY_off() condition

[perl5.git] / scope.c

diff --git a/scope.c b/scope.c
index 4361455..23ade78 100644 (file)
--- a/scope.c
+++ b/scope.c
@@ -1036,6 +1036,8 @@ Perl_leave_scope(pTHX_ I32 base)
                     (SvREFCNT(sv) <= 1 && !SvOBJECT(sv)) ? "clear" : "abandon"
                 ));
 
+                assert(SvPADMY(sv));
+
                 /* Can clear pad variable in place? */
                 if (SvREFCNT(sv) <= 1 && !SvOBJECT(sv)) {
 
@@ -1056,7 +1058,7 @@ Perl_leave_scope(pTHX_ I32 base)
                          * readonlyness so that it can go out of scope
                          * quietly
                          */
-                        if (SvPADMY(sv) && !SvFAKE(sv))
+                        if (SvREADONLY(sv) && !SvFAKE(sv))
                             SvREADONLY_off(sv);
 
                         if (SvMAGICAL(sv)) {