diff options
| author | Brian Fraser <fraserbn@gmail.com> | 2011-07-23 18:34:05 -0300 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2011-10-06 13:01:04 -0700 |
| commit | 25db2ea650dc007e883127e8bcbdc9a5c712d296 (patch) | |
| tree | 23aa435ef100288695967ad2fa614f10e5bd6f30 /toke.c | |
| parent | 2e38bce17acfa9728bc08714c07bd474aebf3941 (diff) | |
| download | perl-25db2ea650dc007e883127e8bcbdc9a5c712d296.tar.gz | |
toke.c: S_scan_inputsymbol, initial GV-related UTF8 cleanup
Diffstat (limited to 'toke.c')
| -rw-r--r-- | toke.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -9599,7 +9599,7 @@ intro_sym: gv = gv_fetchpv(d, (PL_in_eval ? (GV_ADDMULTI | GV_ADDINEVAL) - : GV_ADDMULTI), + : GV_ADDMULTI) | ( UTF ? SVf_UTF8 : 0 ), SVt_PV); PL_lex_op = readline_overriden ? (OP*)newUNOP(OP_ENTERSUB, OPf_STACKED, @@ -9619,7 +9619,7 @@ intro_sym: /* If it's none of the above, it must be a literal filehandle (<Foo::BAR> or <FOO>) so build a simple readline OP */ else { - GV * const gv = gv_fetchpv(d, GV_ADD, SVt_PVIO); + GV * const gv = gv_fetchpv(d, GV_ADD | ( UTF ? SVf_UTF8 : 0 ), SVt_PVIO); PL_lex_op = readline_overriden ? (OP*)newUNOP(OP_ENTERSUB, OPf_STACKED, op_append_elem(OP_LIST, |