[libmath-prime-util-perl] 09/43: Don't let ST random prime give up so easily

[Partha P. Mukherjee]

This is an automated email from the git hooks/post-receive script.

ppm-guest pushed a commit to annotated tag v0.40
in repository libmath-prime-util-perl.

commit 2f3f0f84719039bf2403c9dcd08176939c3da84f
Author: Dana Jacobsen <dana at acm.org>
Date:   Thu Mar 6 12:35:23 2014 -0800

    Don't let ST random prime give up so easily
---
 lib/Math/Prime/Util/RandomPrimes.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lib/Math/Prime/Util/RandomPrimes.pm b/lib/Math/Prime/Util/RandomPrimes.pm
index 88f2e05..6c6b4d2 100644
--- a/lib/Math/Prime/Util/RandomPrimes.pm
+++ b/lib/Math/Prime/Util/RandomPrimes.pm
@@ -894,7 +894,7 @@ sub _ST_Random_prime {  # From FIPS 186-4
       # c is small so we can provably test it.
       my ($isp, $cert) = is_provable_prime_with_cert($c);
       return (1,$c,$seed,$prime_gen_counter,$cert) if $isp;
-      return (0,0,0,0) if $prime_gen_counter > 4*$k;
+      return (0,0,0,0) if $prime_gen_counter > 10000 + 16*$k;
     }
   }
   my($status,$c0,$seed,$prime_gen_counter,$cert)
@@ -956,7 +956,7 @@ sub _ST_Random_prime {  # From FIPS 186-4
         return (1, $c, $seed, $prime_gen_counter, $cert);
       }
     }
-    return (0,0,0,0) if $prime_gen_counter > 4*$k + $old_counter;
+    return (0,0,0,0) if $prime_gen_counter > 10000 + 16*$k + $old_counter;
     $t++;
   }
 }

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libmath-prime-util-perl.git