diff options
| author | Brian Fraser <fraserbn@gmail.com> | 2011-07-10 08:18:57 -0300 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2011-10-06 13:01:18 -0700 |
| commit | 9e964fea750e6cadbe970c77950b0004aa2c9167 (patch) | |
| tree | c9dd2c799c843cb39c73ab069deac877a93ee04f /pp_sys.c | |
| parent | 108f32a5da28810b69c9097b4559dc86faada4fc (diff) | |
| download | perl-9e964fea750e6cadbe970c77950b0004aa2c9167.tar.gz | |
pp_sys.c: pp_select UTF8 cleanup.
Diffstat (limited to 'pp_sys.c')
| -rw-r--r-- | pp_sys.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -1226,7 +1226,7 @@ PP(pp_select) if (! hv) XPUSHs(&PL_sv_undef); else { - GV * const * const gvp = (GV**)hv_fetch(hv, GvNAME(egv), GvNAMELEN(egv), FALSE); + GV * const * const gvp = (GV**)hv_fetch(hv, GvNAME(egv), HEK_UTF8(GvNAME_HEK(egv)) ? -GvNAMELEN(egv) : GvNAMELEN(egv), FALSE); if (gvp && *gvp == egv) { gv_efullname4(TARG, PL_defoutgv, NULL, TRUE); XPUSHTARG; |