In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/38bb37b9aa18dbe6a88a951af8e34d0896487971?hp=de9b652d389bb078ea964ac7c12b5680f8290779>
- Log ----------------------------------------------------------------- commit 38bb37b9aa18dbe6a88a951af8e34d0896487971 Author: Vincent Pit <[email protected]> Date: Thu Mar 19 18:16:41 2009 +0100 Revert the op.c part of 3049cdab to enable shared hask keys on ithreads ----------------------------------------------------------------------- Summary of changes: op.c | 2 +- 1 files changed, 1 insertions(+), 1 deletions(-) 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, -- Perl5 Master Repository
