defect 3013537: make the chdef -m keep the order of old value of attribute
git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@6405 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
parent
8bcb731086
commit
3fce8957d7
@ -735,7 +735,7 @@ sub setobjdefs
|
||||
# make a new list without the one specified
|
||||
my $first = 1;
|
||||
my $newlist;
|
||||
foreach my $i (sort @currentList)
|
||||
foreach my $i (@currentList)
|
||||
{
|
||||
chomp $i;
|
||||
if (!grep(/^$i$/, @minusList))
|
||||
@ -828,7 +828,7 @@ sub setobjdefs
|
||||
# make a new list without the one specified
|
||||
my $first = 1;
|
||||
my $newlist;
|
||||
foreach my $i (sort @currentList)
|
||||
foreach my $i (@currentList)
|
||||
{
|
||||
chomp $i;
|
||||
if (!grep(/^$i$/, @minusList))
|
||||
@ -1102,7 +1102,7 @@ sub setobjdefs
|
||||
# make a new list without the one specified
|
||||
my $first = 1;
|
||||
my $newlist;
|
||||
foreach my $i (sort @currentList)
|
||||
foreach my $i (@currentList)
|
||||
{
|
||||
chomp $i;
|
||||
if (!grep(/^\Q$i\E$/, @minusList))
|
||||
|
Loading…
Reference in New Issue
Block a user