From 12e866f520b3a37f0f104efa93fa871c7e40ef03 Mon Sep 17 00:00:00 2001
From: dataking <dataking@gmail.com>
Date: Sun, 21 Aug 2016 13:07:21 -0700
Subject: [PATCH] Fixed &is_prime()

---
 lynis_report.pl | 16 ++++++----------
 1 file changed, 6 insertions(+), 10 deletions(-)

diff --git a/lynis_report.pl b/lynis_report.pl
index 456718e..121c970 100755
--- a/lynis_report.pl
+++ b/lynis_report.pl
@@ -1338,16 +1338,12 @@ END
 
 sub is_prime {
 	my $num = shift(@_);
-
-	if ($num < 2 ) { return 0; }
-	if ($num == 2) { return 1; }
-	else {
-		for (my$i=2;$i<sqrt($num);$i++) {
-			if ($num % $i == 0) {
-				return 0;
-			}
-		}
-		return 1;
+	my $sqrt = sqrt($num);
+	my $d = 2;
+	while (1) {
+		return 0 if ( $num % $d == 0 );
+		return 1 if ( $d >= $sqrt );
+		$d++;
 	}
 }