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 91a51f76f48907edfa0b9052b86d2d2e3054f53a Author: Dana Jacobsen <d...@acm.org> Date: Wed Jan 8 19:19:42 2014 -0800 When doing XS bigint downgrade on old Perl, set the string --- XS.xs | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/XS.xs b/XS.xs index 82d9b35..598d390 100644 --- a/XS.xs +++ b/XS.xs @@ -852,7 +852,11 @@ _validate_num(SV* svn, ...) if (_validate_int(aTHX_ svn, 0)) { if (SvROK(svn)) { /* Convert small Math::BigInt object into scalar */ UV n = my_svuv(svn); +#if PERL_REVISION <= 5 && PERL_VERSION < 8 && BITS_PER_WORD == 64 + sv_setpviv(svn, n); +#else sv_setuv(svn, n); +#endif } if (items > 1 && ((sv1 = ST(1)), SvOK(sv1))) { UV n = my_svuv(svn); -- 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