[libmath-prime-util-perl] 29/29: Minor updates for release

Partha P. Mukherjee ppm-guest at moszumanska.debian.org
Thu May 21 18:48:18 UTC 2015


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 <dana at 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



More information about the Pkg-perl-cvs-commits mailing list