projects
/
platform
/
upstream
/
perl.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
9e3fb20
)
toke.c: Remove unnecessary UTF check
author
Father Chrysostomos
<sprout@cpan.org>
Tue, 5 Nov 2013 23:47:30 +0000
(15:47 -0800)
committer
Father Chrysostomos
<sprout@cpan.org>
Wed, 6 Nov 2013 13:56:04 +0000
(
05:56
-0800)
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.
toke.c
patch
|
blob
|
history
diff --git
a/toke.c
b/toke.c
index
c19b446
..
b42929e
100644
(file)
--- 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)