toke.c: Remove unnecessary UTF check
authorFather Chrysostomos <sprout@cpan.org>
Tue, 5 Nov 2013 23:47:30 +0000 (15:47 -0800)
committerFather 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

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)