This is an automated email from the git hooks/post-receive script. ppm-guest pushed a commit to annotated tag v0.27 in repository libmath-prime-util-perl.
commit 2ea2f7a2a234d3a79d4c6297de851d6a2f16bc54 Author: Dana Jacobsen <d...@acm.org> Date: Mon May 20 02:45:48 2013 -0700 Minor updates for release --- Changes | 2 +- MANIFEST | 1 + examples/verify-gmp-ecpp-cert.pl | 8 ++++++-- xt/primality-proofs.pl | 0 4 files changed, 8 insertions(+), 3 deletions(-) diff --git a/Changes b/Changes index 7438ece..2220c72 100644 --- a/Changes +++ b/Changes @@ -1,6 +1,6 @@ Revision history for Perl extension Math::Prime::Util. -0.27 xx May 2013 +0.27 20 May 2013 - is_prime, is_prob_prime, next_prime, and prev_prime now all go straight to XS if possible. This makes them much faster for small inputs without diff --git a/MANIFEST b/MANIFEST index 298c91e..b2cb116 100644 --- a/MANIFEST +++ b/MANIFEST @@ -94,6 +94,7 @@ xt/moebius-mertens.pl xt/totient-range.pl xt/primality-small.pl xt/primality-aks.pl +xt/primality-proofs.pl xt/small-is-next-prev.pl xt/factor-holf.pl xt/make-script-test-data.pl diff --git a/examples/verify-gmp-ecpp-cert.pl b/examples/verify-gmp-ecpp-cert.pl index 7c629ce..f816506 100755 --- a/examples/verify-gmp-ecpp-cert.pl +++ b/examples/verify-gmp-ecpp-cert.pl @@ -28,7 +28,11 @@ while (<>) { if (/^N\[(\d+)\]\s*=\s*(\d+)/) { $n = $2; if ($1 == 0) { - die "Bad input" if defined $N; + if (defined $N) { + # I guess we're done with the last one... + print verify_prime(@cert) ? "SUCCESS\n" : "FAILURE\n"; + } + #die "Bad input" if defined $N; $N = $n; @cert = ($n, "AGKM"); } @@ -56,7 +60,7 @@ while (<>) { push @cert, [$n, $a, $b, $m, $q, [$Px,$Py]]; } else { - last if /^proven prime/; + undef $N if /^proven prime/; } } diff --git a/xt/primality-proofs.pl b/xt/primality-proofs.pl old mode 100644 new mode 100755 -- 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