You are viewing a plain text version of this content. The canonical link for it is here.
Posted to commits@lucy.apache.org by ma...@apache.org on 2013/07/19 23:11:44 UTC
[lucy-commits] [2/2] git commit: refs/heads/0.3 - PL_sv_objcount will be deprecated
in Perl 5.18
PL_sv_objcount will be deprecated in Perl 5.18
Project: http://git-wip-us.apache.org/repos/asf/lucy/repo
Commit: http://git-wip-us.apache.org/repos/asf/lucy/commit/212a0444
Tree: http://git-wip-us.apache.org/repos/asf/lucy/tree/212a0444
Diff: http://git-wip-us.apache.org/repos/asf/lucy/diff/212a0444
Branch: refs/heads/0.3
Commit: 212a0444c38ea95d476a2d43db011ed7507fe32a
Parents: 74cd2c0
Author: Nick Wellnhofer <we...@aevum.de>
Authored: Tue Apr 16 00:01:38 2013 +0200
Committer: Marvin Humphrey <ma...@rectangular.com>
Committed: Fri Jul 19 14:07:46 2013 -0700
----------------------------------------------------------------------
perl/xs/Lucy/Object/Obj.c | 2 ++
1 file changed, 2 insertions(+)
----------------------------------------------------------------------
http://git-wip-us.apache.org/repos/asf/lucy/blob/212a0444/perl/xs/Lucy/Object/Obj.c
----------------------------------------------------------------------
diff --git a/perl/xs/Lucy/Object/Obj.c b/perl/xs/Lucy/Object/Obj.c
index bb5e92b..3dcc498 100644
--- a/perl/xs/Lucy/Object/Obj.c
+++ b/perl/xs/Lucy/Object/Obj.c
@@ -31,7 +31,9 @@ static void
S_lazy_init_host_obj(lucy_Obj *self) {
SV *inner_obj = newSV(0);
SvOBJECT_on(inner_obj);
+#if (PERL_VERSION <= 16)
PL_sv_objcount++;
+#endif
SvUPGRADE(inner_obj, SVt_PVMG);
sv_setiv(inner_obj, PTR2IV(self));