This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
gv.c: Make Gv_AMupdate use gv_fetchmethod_sv_flags
authorBrian Fraser <fraserbn@gmail.com>
Sun, 2 Oct 2011 05:11:42 +0000 (22:11 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Thu, 6 Oct 2011 20:00:59 +0000 (13:00 -0700)
gv.c

diff --git a/gv.c b/gv.c
index 1055f8b..89ee978 100644 (file)
--- a/gv.c
+++ b/gv.c
@@ -2235,8 +2235,7 @@ Perl_Gv_AMupdate(pTHX_ HV *stash, bool destructing)
                        "\" for overloaded \"%s\" in package \"%.256s\"\n",
                             (void*)GvSV(gv), cp, HvNAME(stash)) );
                if (!gvsv || !SvPOK(gvsv)
-                   || !(ngv = gv_fetchmethod_autoload(stash, SvPVX_const(gvsv),
-                                                      FALSE)))
+                   || !(ngv = gv_fetchmethod_sv_flags(stash, gvsv, 0)))
                {
                    /* Can be an import stub (created by "can"). */
                    if (destructing) {