diff options
| author | Brian Fraser <fraserbn@gmail.com> | 2011-07-22 09:51:03 -0300 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2011-10-06 13:01:05 -0700 |
| commit | c271df943c312e7d6e9102703218e7253282f35e (patch) | |
| tree | 5274f422eab9ea61a8823377b97e01a8bd002165 /pp_ctl.c | |
| parent | c8416c26ff9b40a27db1eddcb4f7dad8e7745e93 (diff) | |
| download | perl-c271df943c312e7d6e9102703218e7253282f35e.tar.gz | |
pp_ctl.c: pp_goto UTF8 cleanup.
Diffstat (limited to 'pp_ctl.c')
| -rw-r--r-- | pp_ctl.c | 5 |
1 files changed, 3 insertions, 2 deletions
@@ -2813,8 +2813,9 @@ PP(pp_goto) /* autoloaded stub? */ if (cv != GvCV(gv) && (cv = GvCV(gv))) goto retry; - autogv = gv_autoload4(GvSTASH(gv), GvNAME(gv), - GvNAMELEN(gv), FALSE); + autogv = gv_autoload_pvn(GvSTASH(gv), GvNAME(gv), + GvNAMELEN(gv), + GvNAMEUTF8(gv) ? SVf_UTF8 : 0); if (autogv && (cv = GvCV(autogv))) goto retry; tmpstr = sv_newmortal(); |