diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2014-02-16 18:07:17 -0800 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2014-02-16 18:07:17 -0800 |
| commit | edf4dbd293952ddabcfb2386e6e113c9aa4fadd5 (patch) | |
| tree | b599630f5b922151b9b4fcf5bc90dedaadee818b /util.c | |
| parent | 259799cf6d5d97ce56449b0c6cbe16e4fd845fb3 (diff) | |
| download | perl-edf4dbd293952ddabcfb2386e6e113c9aa4fadd5.tar.gz | |
Avoid recalculating sub name hash in util.c:get_db_sub
Diffstat (limited to 'util.c')
| -rw-r--r-- | util.c | 5 |
1 files changed, 2 insertions, 3 deletions
@@ -5272,9 +5272,8 @@ S_gv_has_usable_name(pTHX_ GV *gv) GV **gvp; return GvSTASH(gv) && HvENAME(GvSTASH(gv)) - && (gvp = (GV **)hv_fetch( - GvSTASH(gv), GvNAME(gv), - GvNAMEUTF8(gv) ? -GvNAMELEN(gv) : GvNAMELEN(gv), 0 + && (gvp = (GV **)hv_fetchhek( + GvSTASH(gv), GvNAME_HEK(gv), 0 )) && *gvp == gv; } |