From a0e369430d0349aee8651eb7e3669eee7ba670e1 Mon Sep 17 00:00:00 2001
From: ertaozh <ertaozh@cn.ibm.com>
Date: Thu, 16 Aug 2018 01:49:53 -0400
Subject: [PATCH] Fix issue 5518: perl-xCAT/xCAT/MacMap.pm on ubuntu18.4 and
 rhels6.10

---
 perl-xCAT/xCAT/MacMap.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/perl-xCAT/xCAT/MacMap.pm b/perl-xCAT/xCAT/MacMap.pm
index a0d42062a..9d2cd803a 100644
--- a/perl-xCAT/xCAT/MacMap.pm
+++ b/perl-xCAT/xCAT/MacMap.pm
@@ -533,7 +533,7 @@ sub refresh_table {
     my $children = 0;
     my $inputs   = new IO::Select;
     $SIG{CHLD} = sub { while (waitpid(-1, WNOHANG) > 0) { $children-- } };
-    foreach my $entry (keys $self->{switches}) {
+    foreach my $entry (keys %{$self->{switches}}) {
         while ($children > 64) {
             $self->handle_output($inputs);
         }