summaryrefslogtreecommitdiff
path: root/pad.c
diff options
context:
space:
mode:
Diffstat (limited to 'pad.c')
-rw-r--r--pad.c8
1 files changed, 1 insertions, 7 deletions
diff --git a/pad.c b/pad.c
index 568c8df67b..a68e202efb 100644
--- 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
}