summaryrefslogtreecommitdiff
path: root/toke.c
diff options
context:
space:
mode:
authorFather Chrysostomos <sprout@cpan.org>2013-11-05 15:47:30 -0800
committerFather Chrysostomos <sprout@cpan.org>2013-11-06 05:56:04 -0800
commit0ca835f6a623d95f378cb509131a818551586691 (patch)
tree2ca29038d32e6e7971acde500b6a33d377846a61 /toke.c
parent9e3fb20c3e612686e655b7bb4d6982e3b565270a (diff)
downloadperl-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.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/toke.c b/toke.c
index c19b446713..b42929e422 100644
--- a/toke.c
+++ b/toke.c
@@ -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)