From 3c5b984bf15ada95f7d86172f9aafef43494a922 Mon Sep 17 00:00:00 2001
From: Marius Halden <marius.h@lden.org>
Date: Sat, 14 Feb 2015 10:48:23 +0100
Subject: Simplify in_array function

---
 stats.pl | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/stats.pl b/stats.pl
index b8dde83..a1a8d88 100755
--- a/stats.pl
+++ b/stats.pl
@@ -24,9 +24,8 @@ sub in_array {
 	my $str = shift;
 	my $arr = shift;
 
-	for my $val (@{$arr}) {
-		return 1 if ($str eq $val);
-	}
+	my %a = map { $_ => 1 } @{$arr};
+	return 1 if (exists $a{$str});
 
 	return 0;
 }
-- 
cgit v1.2.3