This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
pp_hot.c: pp_entersub UTF8 cleanup.
authorBrian Fraser <fraserbn@gmail.com>
Fri, 22 Jul 2011 12:51:52 +0000 (09:51 -0300)
committerFather Chrysostomos <sprout@cpan.org>
Thu, 6 Oct 2011 20:01:06 +0000 (13:01 -0700)
pp_hot.c

index 59fc443..cd2b3f5 100644 (file)
--- a/pp_hot.c
+++ b/pp_hot.c
@@ -2625,8 +2625,8 @@ PP(pp_entersub)
        /* should call AUTOLOAD now? */
        else {
 try_autoload:
-           if ((autogv = gv_autoload4(GvSTASH(gv), GvNAME(gv), GvNAMELEN(gv),
-                                  FALSE)))
+           if ((autogv = gv_autoload_pvn(GvSTASH(gv), GvNAME(gv), GvNAMELEN(gv),
+                                  GvNAMEUTF8(gv) ? SVf_UTF8 : 0)))
            {
                cv = GvCV(autogv);
            }