This is an automated email from the git hooks/post-receive script.
ppm-guest pushed a commit to annotated tag v0.28
in repository libmath-prime-util-perl.
commit d10f7b3ec4fd07ac13d38c86382d37bdb55aee88
Author: Dana Jacobsen <d...@acm.org>
Date: Thu May 23 20:39:49 2013 -0700
Fix some multicall portability issues (5.8.2)
---
XS.xs | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/XS.xs b/XS.xs
index 86066d9..bc01288 100644
--- a/XS.xs
+++ b/XS.xs
@@ -42,7 +42,7 @@
# define CvISXSUB(cv) CvXSUB(cv)
#endif
/* Not right, but close */
-#if !defined cxinc && ( (PERL_VERSION == 8 && PERL_SUBVERSION == 9) ||
(PERL_VERSION == 10 && PERL_SUBVERSION <= 1) )
+#if !defined cxinc && ( (PERL_VERSION == 8 && PERL_SUBVERSION >= 2) ||
(PERL_VERSION == 10 && PERL_SUBVERSION <= 1) )
# define cxinc() Perl_cxinc(aTHX)
#endif
@@ -686,7 +686,7 @@ forprimes (SV* block, IN SV* svbeg, IN SV* svend = 0)
} END_DO_FOR_EACH_PRIME
#ifdef PERL_HAS_BAD_MULTICALL_REFCOUNT
if (CvDEPTH(multicall_cv) > 1)
- SvREFCNT_inc_simple_void_NN(multicall_cv);
+ SvREFCNT_inc(multicall_cv);
#endif
POP_MULTICALL;
} else {
--
Alioth's /usr/local/bin/git-commit-notice on
/srv/git.debian.org/git/pkg-perl/packages/libmath-prime-util-perl.git
_______________________________________________
Pkg-perl-cvs-commits mailing list
Pkg-perl-cvs-commits@lists.alioth.debian.org
http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/pkg-perl-cvs-commits
