From 651978435ef0d762b74b9d6a3de0424651ef4181 Mon Sep 17 00:00:00 2001 From: tb <> Date: Sun, 26 Mar 2023 08:04:57 +0000 Subject: bn_prime.pl: fix shebang and a couple more whitespace tweaks --- src/lib/libcrypto/bn/bn_prime.pl | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) (limited to 'src/lib') diff --git a/src/lib/libcrypto/bn/bn_prime.pl b/src/lib/libcrypto/bn/bn_prime.pl index 0e982fc0af..f638e4a9a4 100644 --- a/src/lib/libcrypto/bn/bn_prime.pl +++ b/src/lib/libcrypto/bn/bn_prime.pl @@ -1,5 +1,5 @@ -#!/bin/perl -# $OpenBSD: bn_prime.pl,v 1.11 2023/03/25 11:35:02 tb Exp $ +#!/usr/bin/perl +# $OpenBSD: bn_prime.pl,v 1.12 2023/03/26 08:04:57 tb Exp $ # # Copyright (C) 1995-1997 Eric Young (eay@cryptsoft.com) # All rights reserved. @@ -72,13 +72,14 @@ push(@primes, 2); $p = 1; loop: -while ($#primes < $num-1) { +while ($#primes < $num - 1) { $p += 2; $s = int(sqrt($p)); for ($i = 0; defined($primes[$i]) && $primes[$i] <= $s; $i++) { next loop if $p % $primes[$i] == 0; } + die "\$primes[$i] is too large: $primes[$i]" if $primes[$i] > 65535; push(@primes, $p); } -- cgit v1.2.3-55-g6feb