You are viewing a plain text version of this content. The canonical link for it is here.
Posted to commits@lucy.apache.org by nw...@apache.org on 2015/05/18 21:29:31 UTC
[05/10] lucy-clownfish git commit: Remove call to Gv_AMupdate
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 <we...@aevum.de>
Authored: Tue May 12 17:23:35 2015 +0200
Committer: Nick Wellnhofer <we...@aevum.de>
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);
}