[libmath-prime-util-perl] 79/181: Simplify my_svuv/my_sviv

[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 9d022c9dfb5d41486c9ff15ae9dfd12008c855a6
Author: Dana Jacobsen <dana at acm.org>
Date:   Tue Dec 31 04:09:29 2013 -0800

    Simplify my_svuv/my_sviv
---
 XS.xs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/XS.xs b/XS.xs
index 66ba2ad..d104adc 100644
--- a/XS.xs
+++ b/XS.xs
@@ -38,8 +38,8 @@
  #define my_svuv(sv)  PSTRTOULL(SvPV_nolen(sv), NULL, 10)
  #define my_sviv(sv)  PSTRTOLL(SvPV_nolen(sv), NULL, 10)
 #else
-  #define my_svuv(sv)  ((!SvROK(sv)) ? SvUV(sv) : PSTRTOULL(SvPV_nolen(sv), NULL, 10))
- #define my_sviv(sv)  ((!SvROK(sv)) ? SvIV(sv) : PSTRTOLL(SvPV_nolen(sv), NULL, 10))
+ #define my_svuv(sv) SvUV(sv)
+ #define my_sviv(sv) SvIV(sv)
 #endif
 
 /* multicall compatibility stuff */

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