diff options
| author | Brian Fraser <fraserbn@gmail.com> | 2011-06-11 14:34:51 -0300 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2011-07-12 21:46:53 -0700 |
| commit | bc9b26cad0a33f1ceccd0800a90bd774b4fc4578 (patch) | |
| tree | 83b6db2d939c77196d6dcdc9807c1e8898a0f611 /toke.c | |
| parent | 48d0d1bec7d856a8eb6ad58b8ba8bfa25c36766d (diff) | |
| download | perl-bc9b26cad0a33f1ceccd0800a90bd774b4fc4578.tar.gz | |
Passing the flag to the pad functions in toke.c
Diffstat (limited to 'toke.c')
| -rw-r--r-- | toke.c | 10 |
1 files changed, 6 insertions, 4 deletions
@@ -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); |