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

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@13251 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 876c0987b..5ee4239e9 100644
--- a/xCAT-server/lib/perl/xCAT/PPC.pm
+++ b/xCAT-server/lib/perl/xCAT/PPC.pm
@@ -1748,6 +1748,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};