$NetBSD: patch-ak,v 1.5 2004/03/29 13:49:42 seb Exp $

--- crypto/bn/bn_prime.pl.orig	Wed Feb 16 13:24:06 2000
+++ crypto/bn/bn_prime.pl
@@ -1,6 +1,8 @@
 #!/usr/local/bin/perl
 # bn_prime.pl
 
+use POSIX;
+
 $num=2048;
 $num=$ARGV[0] if ($#ARGV >= 0);
 
@@ -9,7 +11,7 @@ $p=1;
 loop: while ($#primes < $num-1)
 	{
 	$p+=2;
-	$s=int(sqrt($p));
+	$s=floor(sqrt($p));
 
 	for ($i=0; $primes[$i]<=$s; $i++)
 		{
