From: Brian Fraser Date: Sat, 11 Jun 2011 17:34:51 +0000 (-0300) Subject: Passing the flag to the pad functions in toke.c X-Git-Tag: accepted/trunk/20130322.191538~3323^2~8 X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=bc9b26cad0a33f1ceccd0800a90bd774b4fc4578;p=platform%2Fupstream%2Fperl.git Passing the flag to the pad functions in toke.c --- diff --git a/toke.c b/toke.c index 6ba2682..ef215a5 100644 --- a/toke.c +++ b/toke.c @@ -8315,7 +8315,7 @@ S_pending_ident(pTHX) yyerror(Perl_form(aTHX_ "No package name allowed for " "variable %s in \"our\"", PL_tokenbuf)); - tmp = allocmy(PL_tokenbuf, tokenbuf_len, 0); + tmp = allocmy(PL_tokenbuf, tokenbuf_len, UTF ? SVf_UTF8 : 0); } else { if (has_colon) @@ -8323,7 +8323,8 @@ S_pending_ident(pTHX) PL_in_my == KEY_my ? "my" : "state", PL_tokenbuf)); pl_yylval.opval = newOP(OP_PADANY, 0); - pl_yylval.opval->op_targ = allocmy(PL_tokenbuf, tokenbuf_len, 0); + pl_yylval.opval->op_targ = allocmy(PL_tokenbuf, tokenbuf_len, + UTF ? SVf_UTF8 : 0); return PRIVATEREF; } } @@ -8342,7 +8343,8 @@ S_pending_ident(pTHX) if (!has_colon) { if (!PL_in_my) - tmp = pad_findmy_pvn(PL_tokenbuf, tokenbuf_len, 0); + tmp = pad_findmy_pvn(PL_tokenbuf, tokenbuf_len, + UTF ? SVf_UTF8 : 0); if (tmp != NOT_IN_PAD) { /* might be an "our" variable" */ if (PAD_COMPNAME_FLAGS_isOUR(tmp)) { @@ -9562,7 +9564,7 @@ S_scan_inputsymbol(pTHX_ char *start) /* try to find it in the pad for this block, otherwise find add symbol table ops */ - const PADOFFSET tmp = pad_findmy_pvn(d, len, 0); + const PADOFFSET tmp = pad_findmy_pvn(d, len, UTF ? SVf_UTF8 : 0); if (tmp != NOT_IN_PAD) { if (PAD_COMPNAME_FLAGS_isOUR(tmp)) { HV * const stash = PAD_COMPNAME_OURSTASH(tmp);