lucy-commits mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From mar...@apache.org
Subject [lucy-commits] [2/2] git commit: refs/heads/0.3 - PL_sv_objcount will be deprecated in Perl 5.18
Date Fri, 19 Jul 2013 21:11:44 GMT
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 <wellnhofer@aevum.de>
Authored: Tue Apr 16 00:01:38 2013 +0200
Committer: Marvin Humphrey <marvin@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));
 


Mime
View raw message