From 855c99551cdb479e5f71c9dd56bcb3a429076025 Mon Sep 17 00:00:00 2001
From: Michael Tremer <michael.tremer@ipfire.org>
Date: Sun, 8 Mar 2015 19:42:28 +0100
Subject: [PATCH] freifunk.cgi: Enable perl strict mode

---
 html/cgi-bin/freifunk.cgi | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/html/cgi-bin/freifunk.cgi b/html/cgi-bin/freifunk.cgi
index 1ee22d802d..8c3036280a 100755
--- a/html/cgi-bin/freifunk.cgi
+++ b/html/cgi-bin/freifunk.cgi
@@ -21,7 +21,7 @@
 
 use open qw(:encoding(UTF-8) :std);
 
-#use strict;
+use strict;
 use JSON::Parse;
 
 # enable only the following on debugging purpose
@@ -374,7 +374,7 @@ sub GetNetworkList() {
 		push(@ret, [$network->{'id'}, $network->{'name'}]);
 	}
 
-	return sort { $a{1} cmp $b{1} } @ret;
+	return sort { $a->[1] cmp $b->[1] } @ret;
 }
 
 sub GetNetwork($) {
-- 
2.39.5