[libmath-prime-util-perl] 95/181: Fix threading argument

[Partha P. Mukherjee]

This is an automated email from the git hooks/post-receive script.

ppm-guest pushed a commit to annotated tag v0.36
in repository libmath-prime-util-perl.

commit 7d90dd00cc6fd001c0bb3325ffbb54f63c840c12
Author: Dana Jacobsen <dana at acm.org>
Date:   Wed Jan 1 22:50:13 2014 -0800

    Fix threading argument
---
 XS.xs | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/XS.xs b/XS.xs
index 9cfbd15..e4e21d2 100644
--- a/XS.xs
+++ b/XS.xs
@@ -367,10 +367,9 @@ is_strong_pseudoprime(IN SV* svn, ...)
       }
       XSRETURN_UV(ret);
     } else {
-      _vcallsubn(G_SCALAR,
-                 _XS_get_callgmp() ? "GMP::is_strong_pseudoprime"
-                                   : "_generic_is_strong_pseudoprime",
-                 items);
+      const char* sub = _XS_get_callgmp() ? "GMP::is_strong_pseudoprime"
+                                          : "_generic_is_strong_pseudoprime";
+      _vcallsubn(aTHX_ G_SCALAR, sub, items);
       return; /* skip implicit PUTBACK */
     }
 

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libmath-prime-util-perl.git