diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 2000-03-18 04:21:43 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 2000-03-18 04:21:43 +0000 |
| commit | e1992b6d91e50ab66a903c570e8d9c48f121f34b (patch) | |
| tree | e0bffe3d06aa60906e366a622649eec86e005dd4 /toke.c | |
| parent | ee3551f533b296608640db86150c800bdb4e3f24 (diff) | |
| download | perl-e1992b6d91e50ab66a903c570e8d9c48f121f34b.tar.gz | |
make "\N{...}" enable utf8-ness correctly
p4raw-id: //depot/perl@5797
Diffstat (limited to 'toke.c')
| -rw-r--r-- | toke.c | 2 |
1 files changed, 2 insertions, 0 deletions
@@ -1479,6 +1479,8 @@ S_scan_const(pTHX_ char *start) res = new_constant( Nullch, 0, "charnames", res, Nullsv, "\\N{...}" ); str = SvPV(res,len); + if (len > 1) + has_utf = TRUE; if (len > e - s + 4) { char *odest = SvPVX(sv); |