Fix for "[ID 20010213.005] utf8 + localized hash elems + 64 bits?"

The hash key got wrongly UTF8fied.

p4raw-id: //depot/perl@8835

1 files changed, 0 insertions, 3 deletions

diff --git a/toke.c b/toke.c
index 5243fea2f3..f8d7145ddb 100644
--- a/toke.c
+++ b/toke.c
@@ -3185,9 +3185,6 @@ Perl_yylex(pTHX)
 		if (*d == '}') {
 		    char minus = (PL_tokenbuf[0] == '-');
 		    s = force_word(s + minus, WORD, FALSE, TRUE, FALSE);
-		    if (UTF && !IN_BYTE && is_utf8_string((U8*)PL_tokenbuf, 0) &&
-			PL_nextval[PL_nexttoke-1].opval)
-		      SvUTF8_on(((SVOP*)PL_nextval[PL_nexttoke-1].opval)->op_sv);
 		    if (minus)
 			force_next('-');
 		}