fixed missing dereferencing in map.pl

diff --git a/web/htdocs/network/map.pl b/web/htdocs/network/map.pl
index 814bc1121e546b104aeb22765dc4acbdb0738cb7..921b08415f02a91f19ffea1ab6e7858ad3251213 100755 (executable)
--- a/web/htdocs/network/map.pl
+++ b/web/htdocs/network/map.pl
@@ -66,7 +66,7 @@ if($ENV{'QUERY_STRING'} =~ /getmap/) {
     my ($parent,$layer) = @_;
     if($layer > 16) {die "More than 16 layers of network devices found. Aborting."}
     my @o;
-    foreach my $p (keys $tree->{$parent}) {
+    foreach my $p (keys @{$tree->{$parent}}) {
       next unless defined $tree->{$parent}->[$p];
       my $addr = $tree->{$parent}->[$p]->{addr};
       my $btype = "";