diff options
| author | Brian Fraser <fraserbn@gmail.com> | 2011-07-23 17:16:15 -0300 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2011-10-06 13:01:03 -0700 |
| commit | 6fbd0d97c7abe1a197482131161c7df22104bc45 (patch) | |
| tree | 77b9b98d4c83506a638e3a82bc8182a89ab0c58d /toke.c | |
| parent | 728847b1f4544844ac4823ce752d86aa297156d2 (diff) | |
| download | perl-6fbd0d97c7abe1a197482131161c7df22104bc45.tar.gz | |
toke.c: S_intuit_more, GV-related UTF8 cleanup
Diffstat (limited to 'toke.c')
| -rw-r--r-- | toke.c | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -3631,7 +3631,8 @@ S_intuit_more(pTHX_ register char *s) int len; scan_ident(s, send, tmpbuf, sizeof tmpbuf, FALSE); len = (int)strlen(tmpbuf); - if (len > 1 && gv_fetchpvn_flags(tmpbuf, len, 0, SVt_PV)) + if (len > 1 && gv_fetchpvn_flags(tmpbuf, len, + UTF ? SVf_UTF8 : 0, SVt_PV)) weight -= 100; else weight -= 10; |