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 9512fca2496a45c258a384c721f5bccebfc7e0c4 Author: Dana Jacobsen <d...@acm.org> Date: Wed Jan 8 19:20:48 2014 -0800 Perl 5.6.2 workarounds for bigint downgrade --- lib/Math/Prime/Util/ECAffinePoint.pm | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/lib/Math/Prime/Util/ECAffinePoint.pm b/lib/Math/Prime/Util/ECAffinePoint.pm index 4041d17..22e6cb6 100644 --- a/lib/Math/Prime/Util/ECAffinePoint.pm +++ b/lib/Math/Prime/Util/ECAffinePoint.pm @@ -116,7 +116,13 @@ sub mul { my $a = $self->{'a'}; my $n = $self->{'n'}; my $f = $self->{'f'}; - $k = int($k->bstr) if ref($k) eq 'Math::BigInt' && $k < ''.~0; + if (ref($k) eq 'Math::BigInt' && $k < ''.~0) { + if ($] >= 5.008 || ~0 == 4294967295) { + $k = int($k->bstr); + } elsif ($] < 5.008 && ~0 > 4294967295 && $k < 562949953421312) { + $k = unpack('Q',pack('Q',$k->bstr)); + } + } my $Bx = $n->copy->bzero; my $By = $n->copy->bone; -- 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