fix bug about Table::getNodeSpecAttribs

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@11759 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
zhaoertao 2012-03-06 07:55:45 +00:00
parent ff00b0716e
commit 1f6d451c67

View File

@ -2348,7 +2348,7 @@ sub getNodeSpecAttribs {
my @keys = ();
if (ref $_[0] eq 'HASH') {
%options = %{shift()};
@attribs = @{shift()};
@attribs = @_;
foreach my $key (keys %options) {
if (!grep(/^$key$/, @attribs)) {
push @attribs, $key;