freifunk.cgi: Enable perl strict mode

diff --git a/html/cgi-bin/freifunk.cgi b/html/cgi-bin/freifunk.cgi
index 1ee22d802db9e297b02181455c4f819e00f1e641..8c3036280addccfd1610b56cd8f582aedaa90594 100755 (executable)
--- 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($) {