From 8fed10cdafa32ef4e1990378c72a599fc726f7a0 Mon Sep 17 00:00:00 2001 From: Jarkko Hietaniemi Date: Mon, 4 Dec 2000 19:44:09 +0000 Subject: [PATCH] Yet Another Copying-Without-Paying-Attention-To-SvUTF8(sv) Bug uncovered by #7980. p4raw-id: //depot/perl@7982 --- op.c | 2 ++ 1 file changed, 2 insertions(+) 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; } -- 2.7.4