From dc2d2c6d4dd69e0ad2419837f7173784bc46f998 Mon Sep 17 00:00:00 2001
From: Jan Michel <j.michel@gsi.de>
Date: Tue, 19 Aug 2014 11:52:14 +0200
Subject: [PATCH] fixed missing dereferencing in map.pl

---
 web/htdocs/network/map.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/web/htdocs/network/map.pl b/web/htdocs/network/map.pl
index 814bc11..921b084 100755
--- 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 = "";
-- 
2.43.0