Additional patch for UTF8-keys (Re: perl@8016)

Message-ID: <3A31F508.34F4BB23@st.rim.or.jp>

exists() didn't work for UTF-8 keys, and neither did shared hash keys.

p4raw-id: //depot/perl@8056

1 files changed, 2 insertions, 2 deletions

diff --git a/op.c b/op.c
index c530e5f484..b6a9c7c04f 100644
--- a/op.c
+++ b/op.c
@@ -6721,9 +6721,9 @@ Perl_peep(pTHX_ register OP *o)
 	    svp = cSVOPx_svp(((BINOP*)o)->op_last);
 	    if ((!SvFAKE(sv = *svp) || !SvREADONLY(sv)) && !IS_PADCONST(sv)) {
 		key = SvPV(sv, keylen);
-		lexname = newSVpvn_share(key, keylen, 0);
 		if (SvUTF8(sv))
-		    SvUTF8_on(lexname);
+		  keylen = -keylen;
+		lexname = newSVpvn_share(key, keylen, 0);
 		SvREFCNT_dec(sv);
 		*svp = lexname;
 	    }