From 3fce8957d7894ca050c5ca61dbaf3c8b5d036bde Mon Sep 17 00:00:00 2001 From: daniceexi Date: Wed, 9 Jun 2010 09:05:45 +0000 Subject: [PATCH] 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 --- perl-xCAT/xCAT/DBobjUtils.pm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/perl-xCAT/xCAT/DBobjUtils.pm b/perl-xCAT/xCAT/DBobjUtils.pm index 61c4376d8..88228aabe 100644 --- a/perl-xCAT/xCAT/DBobjUtils.pm +++ b/perl-xCAT/xCAT/DBobjUtils.pm @@ -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))