mirror of
https://github.com/xcat2/xcat-core.git
synced 2025-09-07 02:38:15 +00:00
Fix ,= operator adding duplicate groups if , delimited
This commit is contained in:
@@ -1730,11 +1730,14 @@ sub nodech
|
||||
if ($cent) { $curval = $cent->{$key}; }
|
||||
}
|
||||
if ($curval) {
|
||||
my @vals = split(/,/, $curval);
|
||||
unless (grep /^$val$/, @vals) {
|
||||
unshift @vals, $val;
|
||||
my $newval = join(',', @vals);
|
||||
$uhsh{$key} = $newval;
|
||||
foreach my $subval (split /,/, $val) {
|
||||
my @vals = split(/,/, $curval);
|
||||
unless (grep /^$subval$/, @vals) {
|
||||
unshift @vals, $subval;
|
||||
my $newval = join(',', @vals);
|
||||
$uhsh{$key} = $newval;
|
||||
$curval = $newval;
|
||||
}
|
||||
}
|
||||
} else {
|
||||
$uhsh{$key} = $val;
|
||||
|
Reference in New Issue
Block a user