Simpify logic in Perl_pad_free(): SvIsCOW() has the same semantics in all cases.

diff --git a/pad.c b/pad.c
index 568c8df..a68e202 100644 (file)
--- a/pad.c
+++ b/pad.c
@@ -1310,13 +1310,7 @@ Perl_pad_free(pTHX_ PADOFFSET po)
        SvPADTMP_off(PL_curpad[po]);
 #ifdef USE_ITHREADS
        /* SV could be a shared hash key (eg bugid #19022) */
-       if (
-#ifdef PERL_OLD_COPY_ON_WRITE
-           !SvIsCOW(PL_curpad[po])
-#else
-           !SvFAKE(PL_curpad[po])
-#endif
-           )
+       if (!SvIsCOW(PL_curpad[po]))
            SvREADONLY_off(PL_curpad[po]);      /* could be a freed constant */
 #endif
     }