Fix prime generation loop in crypto/bn/bn_prime.pl by making

[openssl.git] / crypto / bn / bn_prime.pl

diff --git a/crypto/bn/bn_prime.pl b/crypto/bn/bn_prime.pl
index 9fc376548652801d9ef0207c98ba68a95e3bba25..e583d1d53b9dffb2178778c26ad2f280e1c6c304 100644 (file)
--- a/crypto/bn/bn_prime.pl
+++ b/crypto/bn/bn_prime.pl
@@ -11,7 +11,7 @@ loop: while ($#primes < $num-1)
        $p+=2;
        $s=int(sqrt($p));
 
-       for ($i=0; $primes[$i]<=$s; $i++)
+       for ($i=0; defined($primes[$i]) && $primes[$i]<=$s; $i++)
                {
                next loop if (($p%$primes[$i]) == 0);
                }