From: Vincent Pit <perl@profvince.com>
Date: Thu, 19 Mar 2009 17:16:41 +0000 (+0100)
Subject: Revert the op.c part of 3049cdab to enable shared hask keys on ithreads
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=38bb37b9aa18dbe6a88a951af8e34d0896487971;p=p5sagit%2Fp5-mst-13.2.git

Revert the op.c part of 3049cdab to enable shared hask keys on ithreads
---

diff --git a/op.c b/op.c
index 2596d8b..78d9990 100644
--- a/op.c
+++ b/op.c
@@ -8563,7 +8563,7 @@ Perl_peep(pTHX_ register OP *o)
 
 	    /* Make the CONST have a shared SV */
 	    svp = cSVOPx_svp(((BINOP*)o)->op_last);
-	    if ((!SvFAKE(sv = *svp) || !SvREADONLY(sv)) && !IS_PADCONST(sv)) {
+	    if (!SvFAKE(sv = *svp) || !SvREADONLY(sv)) {
 		key = SvPV_const(sv, keylen);
 		lexname = newSVpvn_share(key,
 					 SvUTF8(sv) ? -(I32)keylen : (I32)keylen,