diff options
| author | Brian Fraser <fraserbn@gmail.com> | 2012-10-28 10:23:35 -0600 |
|---|---|---|
| committer | Karl Williamson <public@khwilliamson.com> | 2012-11-11 10:11:34 -0700 |
| commit | dd2b1b72954eb51f4e875292a9975f497d64b59e (patch) | |
| tree | 2d8ee11e4550b5908d02f117c77689cceb2f46b7 /toke.c | |
| parent | 140b12ad0482fdb08836d55b125bf40a24ccc281 (diff) | |
| download | perl-dd2b1b72954eb51f4e875292a9975f497d64b59e.tar.gz | |
toke.c: [RT#73022] Make \N{...} UTF-8 clean.
Diffstat (limited to 'toke.c')
| -rw-r--r-- | toke.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -2642,7 +2642,7 @@ S_get_and_check_backslash_N_name(pTHX_ const char* s, const char* const e) STRLEN len; const char *str; const char* i = s; - SV* res = newSVpvn(s, e - s); + SV* res = newSVpvn_flags(s, e - s, UTF ? SVf_UTF8 : 0); HV * table; SV **cvp; |