From: Nicholas Clark <nick@ccl4.org>
Date: Sun, 19 Apr 2009 19:05:43 +0000 (+0100)
Subject: Simpify logic in Perl_pad_free(): SvIsCOW() has the same semantics in all cases.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ddea3ea7e37dd9e47ccbeefed8302a04c561f972;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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
     }