diff options
Diffstat (limited to 'src/lib')
| -rw-r--r-- | src/lib/libcrypto/bn/bn_prime.pl | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/src/lib/libcrypto/bn/bn_prime.pl b/src/lib/libcrypto/bn/bn_prime.pl index 273e958079..0e982fc0af 100644 --- a/src/lib/libcrypto/bn/bn_prime.pl +++ b/src/lib/libcrypto/bn/bn_prime.pl | |||
| @@ -1,5 +1,5 @@ | |||
| 1 | #!/bin/perl | 1 | #!/bin/perl |
| 2 | # $OpenBSD: bn_prime.pl,v 1.10 2023/03/25 11:28:55 tb Exp $ | 2 | # $OpenBSD: bn_prime.pl,v 1.11 2023/03/25 11:35:02 tb Exp $ |
| 3 | # | 3 | # |
| 4 | # Copyright (C) 1995-1997 Eric Young (eay@cryptsoft.com) | 4 | # Copyright (C) 1995-1997 Eric Young (eay@cryptsoft.com) |
| 5 | # All rights reserved. | 5 | # All rights reserved. |
| @@ -57,6 +57,11 @@ | |||
| 57 | # copied and put under another distribution licence | 57 | # copied and put under another distribution licence |
| 58 | # [including the GNU Public Licence.] | 58 | # [including the GNU Public Licence.] |
| 59 | 59 | ||
| 60 | use strict; | ||
| 61 | use warnings; | ||
| 62 | |||
| 63 | my ($i, $num, $p, $s, @primes); | ||
| 64 | |||
| 60 | $num = 2048; | 65 | $num = 2048; |
| 61 | $num = $ARGV[0] if $#ARGV >= 0; | 66 | $num = $ARGV[0] if $#ARGV >= 0; |
| 62 | 67 | ||
