diff options
author | Father Chrysostomos <sprout@cpan.org> | 2013-11-05 15:47:30 -0800 |
---|---|---|
committer | Father Chrysostomos <sprout@cpan.org> | 2013-11-06 05:56:04 -0800 |
commit | 0ca835f6a623d95f378cb509131a818551586691 (patch) | |
tree | 2ca29038d32e6e7971acde500b6a33d377846a61 /toke.c | |
parent | 9e3fb20c3e612686e655b7bb4d6982e3b565270a (diff) | |
download | perl-0ca835f6a623d95f378cb509131a818551586691.tar.gz |
toke.c: Remove unnecessary UTF check
In this particular branch, the value of PL_tokenbuf will always
be a built-in keyword; i.e., pure ASCII. So there is no need to
do a utf8 check.
Diffstat (limited to 'toke.c')
-rw-r--r-- | toke.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -7146,7 +7146,7 @@ Perl_yylex(pTHX) } if (!ogv && (gvp = (GV**)hv_fetch(PL_globalstash, PL_tokenbuf, - UTF ? -(I32)len : (I32)len, FALSE)) && + len, FALSE)) && (gv = *gvp) && ( isGV_with_GP(gv) ? GvCVu(gv) && GvIMPORTED_CV(gv) |