[libmath-prime-util-perl] 65/181: Change back to dTHX for now

[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 bcff6a34bcdd748b9f226e3ea281cf9d1faa868f
Author: Dana Jacobsen <dana at acm.org>
Date:   Mon Dec 30 03:52:02 2013 -0800

    Change back to dTHX for now
---
 XS.xs | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/XS.xs b/XS.xs
index b049045..8a2e484 100644
--- a/XS.xs
+++ b/XS.xs
@@ -83,11 +83,11 @@
  */
 static int _validate_int(SV* n, int negok)
 {
+  dTHX;
   const char* maxstr;
   char* ptr;
   STRLEN i, len, maxlen;
   int ret, isneg = 0;
-  pTHX_;
 
   /* TODO: magic, grok_number, etc. */
   if (SvGAMAGIC(n)) return 0;          /* Leave while we still can */
@@ -129,11 +129,11 @@ static int _validate_int(SV* n, int negok)
 /* Call a Perl sub to handle work for us. */
 static int _vcallsubn(I32 flags, const char* name, int nargs)
 {
-      dSP;
-      pTHX_;
-      PUSHMARK(SP-nargs);
-      PUTBACK;
-      return call_pv(name, flags);
+    dTHX;
+    dSP;
+    PUSHMARK(SP-nargs);
+    PUTBACK;
+    return call_pv(name, flags);
 }
 #define _vcallsub(func) (void)_vcallsubn(G_SCALAR, func, 1)
 

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