diff options
Diffstat (limited to 'toke.c')
| -rw-r--r-- | toke.c | 7 |
1 files changed, 4 insertions, 3 deletions
@@ -2093,7 +2093,8 @@ S_force_ident(pTHX_ register const char *s, int kind) if (*s) { const STRLEN len = strlen(s); - OP* const o = (OP*)newSVOP(OP_CONST, 0, newSVpvn(s, len)); + OP* const o = (OP*)newSVOP(OP_CONST, 0, newSVpvn_flags(s, len, + UTF ? SVf_UTF8 : 0)); start_force(PL_curforce); NEXTVAL_NEXTTOKE.opval = o; force_next(WORD); @@ -2103,8 +2104,8 @@ S_force_ident(pTHX_ register const char *s, int kind) warnings if the symbol must be introduced in an eval. GSAR 96-10-12 */ gv_fetchpvn_flags(s, len, - PL_in_eval ? (GV_ADDMULTI | GV_ADDINEVAL) - : GV_ADD, + (PL_in_eval ? (GV_ADDMULTI | GV_ADDINEVAL) + : GV_ADD) | ( UTF ? SVf_UTF8 : 0 ), kind == '$' ? SVt_PV : kind == '@' ? SVt_PVAV : kind == '%' ? SVt_PVHV : |