[libmath-prime-util-perl] 10/11: Fix some multicall portability issues (5.8.2)

[Partha P. Mukherjee]

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 <dana at 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