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 6f543ae739ba730c513a21aa449a580a1472e32f
Author: Dana Jacobsen <d...@acm.org>
Date:   Tue Apr 23 22:08:10 2013 -0700

    Fix error with big aks inputs (order would roll over)
---
 aks.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/aks.c b/aks.c
index 3b7f18c..0eb9580 100644
--- a/aks.c
+++ b/aks.c
@@ -90,7 +90,7 @@ static UV order(UV r, UV n, UV limit) {
   UV j;
   UV t = 1;
   for (j = 1; j <= limit; j++) {
-    t = (t * n) % r;
+    t = mulmod(t, n, r);
     if (t == 1)
       break;
   }

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

Reply via email to