Fix nodech for noderanges again (shallow copy was breaking it)

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@739 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
jbjohnso 2008-03-10 16:15:13 +00:00
parent 129af8ee3e
commit 99ff23dad4

View File

@ -611,10 +611,10 @@ sub nodech
{
#my $op = $tables{$tab}->{$_}->[1];
#my $val = $tables{$tab}->{$_}->[0];
my $valoppairs = $tables{$tab}->{$_};
while (scalar(@$valoppairs)) { # alternating list of value and op for this table.column
my $val = shift @$valoppairs;
my $op = shift @$valoppairs;
my @valoppairs = @{$tables{$tab}->{$_}}; #Deep copy
while (scalar(@valoppairs)) { # alternating list of value and op for this table.column
my $val = shift @valoppairs;
my $op = shift @valoppairs;
my $key = $_;
if ($op eq '=') {
$uhsh{$key} = $val;
@ -651,7 +651,7 @@ sub nodech
}
} #else, what they asked for is the case alredy
}
} # end of while $valoppairs
} # end of while @valoppairs
} # end of foreach column specified for this table
if (keys %uhsh)