From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Mon, 4 Dec 2000 19:44:09 +0000 (+0000)
Subject: Yet Another Copying-Without-Paying-Attention-To-SvUTF8(sv) Bug
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=8fed10cdafa32ef4e1990378c72a599fc726f7a0;p=p5sagit%2Fp5-mst-13.2.git

Yet Another Copying-Without-Paying-Attention-To-SvUTF8(sv) Bug
uncovered by #7980.

p4raw-id: //depot/perl@7982
---

diff --git a/op.c b/op.c
index 50db696..5d00c69 100644
--- a/op.c
+++ b/op.c
@@ -6778,6 +6778,8 @@ Perl_peep(pTHX_ register OP *o)
 	    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);
 		SvREFCNT_dec(sv);
 		*svp = lexname;
 	    }