In perl.git, the branch blead has been updated
<http://perl5.git.perl.org/perl.git/commitdiff/1cde3371bb6a7d2f24de42ef82c0028a0a50f195?hp=9a7b7fba267b8910dbea2920dd675030f796320c>
- Log -----------------------------------------------------------------
commit 1cde3371bb6a7d2f24de42ef82c0028a0a50f195
Author: Steffen Mueller <smuel...@cpan.org>
Date: Fri Jan 27 15:55:51 2017 +0100
Reuse previously-computed flag
-----------------------------------------------------------------------
Summary of changes:
gv.c | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/gv.c b/gv.c
index ae800c923b..8c85614386 100644
--- a/gv.c
+++ b/gv.c
@@ -736,7 +736,7 @@ S_gv_fetchmeth_internal(pTHX_ HV* stash, SV* meth, const
char* name, STRLEN len,
/* check locally for a real method or a cache entry */
he = (HE*)hv_common(
- cachestash, meth, name, len, (flags & SVf_UTF8) ? HVhek_UTF8 : 0,
create, NULL, 0
+ cachestash, meth, name, len, is_utf8 ? HVhek_UTF8 : 0, create, NULL, 0
);
if (he) gvp = (GV**)&HeVAL(he);
else gvp = NULL;
--
Perl5 Master Repository
