From 5da9da9e9f46681684e0c487fd55df8db6f9de67 Mon Sep 17 00:00:00 2001 From: Jarkko Hietaniemi Date: Sun, 18 Feb 2001 20:12:02 +0000 Subject: Fix for "[ID 20010213.005] utf8 + localized hash elems + 64 bits?" The hash key got wrongly UTF8fied. p4raw-id: //depot/perl@8835 --- toke.c | 3 --- 1 file changed, 3 deletions(-) (limited to 'toke.c') 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('-'); } -- cgit v1.2.1