diff options
| author | Vincent Pit <perl@profvince.com> | 2009-03-19 18:16:41 +0100 |
|---|---|---|
| committer | Vincent Pit <perl@profvince.com> | 2009-03-20 11:11:36 +0100 |
| commit | 38bb37b9aa18dbe6a88a951af8e34d0896487971 (patch) | |
| tree | bb55361938faff1be5b9608ff837ecdbdafaf619 /op.c | |
| parent | de9b652d389bb078ea964ac7c12b5680f8290779 (diff) | |
| download | perl-38bb37b9aa18dbe6a88a951af8e34d0896487971.tar.gz | |
Revert the op.c part of 3049cdab to enable shared hask keys on ithreads
Diffstat (limited to 'op.c')
| -rw-r--r-- | op.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -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, |