Remove call to Gv_AMupdate I think that Perl already does this lazily via the Gv_AMG macro.
Project: http://git-wip-us.apache.org/repos/asf/lucy-clownfish/repo Commit: http://git-wip-us.apache.org/repos/asf/lucy-clownfish/commit/71043647 Tree: http://git-wip-us.apache.org/repos/asf/lucy-clownfish/tree/71043647 Diff: http://git-wip-us.apache.org/repos/asf/lucy-clownfish/diff/71043647 Branch: refs/heads/master Commit: 71043647d9f2080f6625fd417ba9e3be1c7c8270 Parents: 98ffa45 Author: Nick Wellnhofer <[email protected]> Authored: Tue May 12 17:23:35 2015 +0200 Committer: Nick Wellnhofer <[email protected]> Committed: Mon May 18 21:25:33 2015 +0200 ---------------------------------------------------------------------- runtime/perl/xs/XSBind.c | 6 ------ 1 file changed, 6 deletions(-) ---------------------------------------------------------------------- http://git-wip-us.apache.org/repos/asf/lucy-clownfish/blob/71043647/runtime/perl/xs/XSBind.c ---------------------------------------------------------------------- diff --git a/runtime/perl/xs/XSBind.c b/runtime/perl/xs/XSBind.c index 00cb056..8261ae8 100644 --- a/runtime/perl/xs/XSBind.c +++ b/runtime/perl/xs/XSBind.c @@ -404,12 +404,6 @@ XSBind_trap(SV *routine, SV *context) { void XSBind_enable_overload(pTHX_ void *pobj) { SV *perl_obj = (SV*)pobj; - HV *stash = SvSTASH(SvRV(perl_obj)); -#if (PERL_VERSION > 10) - Gv_AMupdate(stash, false); -#else - Gv_AMupdate(stash); -#endif SvAMAGIC_on(perl_obj); }
