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:
parent
129af8ee3e
commit
99ff23dad4
@ -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)
|
||||
|
Loading…
Reference in New Issue
Block a user