From 1de6b0b66e8346629f64b511e9ac605d3b633659 Mon Sep 17 00:00:00 2001
From: ligc <ligc@8638fb3e-16cb-4fca-ae20-7b5d299a9bcd>
Date: Wed, 2 Jun 2010 09:08:50 +0000
Subject: [PATCH] fix for bug 2998069

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@6309 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
---
 perl-xCAT/xCAT/DBobjUtils.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/perl-xCAT/xCAT/DBobjUtils.pm b/perl-xCAT/xCAT/DBobjUtils.pm
index afcf20f21..61c4376d8 100644
--- a/perl-xCAT/xCAT/DBobjUtils.pm
+++ b/perl-xCAT/xCAT/DBobjUtils.pm
@@ -1105,7 +1105,7 @@ sub setobjdefs
                     foreach my $i (sort @currentList)
                     {
                         chomp $i;
-                        if (!grep(/^$i$/, @minusList))
+                        if (!grep(/^\Q$i\E$/, @minusList))
                         {
 
                             # set new list for node