From 1e4d543cf7875271854c42ec4e9434bdd4b09f8a Mon Sep 17 00:00:00 2001
From: zhaoertao <zhaoertao@8638fb3e-16cb-4fca-ae20-7b5d299a9bcd>
Date: Mon, 9 Jul 2012 02:37:31 +0000
Subject: [PATCH] fix bug about 'runcmd' subroutine in hierarchy environment

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/branches/2.7@13250 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
---
 xCAT-server/lib/perl/xCAT/PPC.pm | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/xCAT-server/lib/perl/xCAT/PPC.pm b/xCAT-server/lib/perl/xCAT/PPC.pm
index b6b64c608..e7cbd45da 100644
--- a/xCAT-server/lib/perl/xCAT/PPC.pm
+++ b/xCAT-server/lib/perl/xCAT/PPC.pm
@@ -1770,6 +1770,9 @@ sub runcmd {
     my $cmd     = $request->{command};
     my $method  = $request->{method};
     my $hwtype  = $request->{hwtype};
+    if (ref($hwtype) eq 'ARRAY') {
+        $hwtype = @$hwtype[0];
+    }
     #my $modname = $modules{$cmd};
     my $modname = $modules{$cmd}{$hwtype};