From 7e2040f0b7c6fc88ec07b6e169aa2f75fc0130a4 Mon Sep 17 00:00:00 2001 From: Gurusamy Sarathy Date: Mon, 31 Jan 2000 04:57:42 +0000 Subject: runtime now looks at the SVf_UTF8 bit on the SV to decide whether to use widechar semantics; lexer and RE engine continue to need "use utf8" to enable unicode awareness in literals and patterns (TODO: this needs to be fixed); $1 et al are marked SvUTF8 if the pattern was compiled for utf8 (TODO: propagating it from the data is probably better) p4raw-id: //depot/perl@4930 --- pp_hot.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'pp_hot.c') diff --git a/pp_hot.c b/pp_hot.c index 18d717b356..6ebde09c29 100644 --- a/pp_hot.c +++ b/pp_hot.c @@ -2737,7 +2737,7 @@ S_method_common(pTHX_ SV* meth, U32* hashp) !(ob=(SV*)GvIO(iogv))) { if (!packname || - ((*(U8*)packname >= 0xc0 && IN_UTF8) + ((*(U8*)packname >= 0xc0 && DO_UTF8(sv)) ? !isIDFIRST_utf8((U8*)packname) : !isIDFIRST(*packname) )) -- cgit v1.2.1