From: Michael Tremer <michael.tremer@ipfire.org>
Date: Sun, 8 Mar 2015 18:42:28 +0000 (+0100)
Subject: freifunk.cgi: Enable perl strict mode
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=a014525a084206d8b7ce65dd8026606e42accbe4;p=people%2Fms%2Fipfire-2.x.git

freifunk.cgi: Enable perl strict mode
---

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($) {