From 0bc53fc5a2f54ab203e8062a59fc7bd5501e303c Mon Sep 17 00:00:00 2001
From: jbjohnso <jbjohnso@8638fb3e-16cb-4fca-ae20-7b5d299a9bcd>
Date: Sun, 9 Aug 2009 15:58:41 +0000
Subject: [PATCH] -Improve client and intra-service node performance on large
 requests (for example, nodels of 65 thousand nodes used to take 2 minutes and
 40 seconds on one particular system.  It now takes 14 seconds on that system
 with this change

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

diff --git a/perl-xCAT/xCAT/Client.pm b/perl-xCAT/xCAT/Client.pm
index d6bfda20e..39c2fed4a 100644
--- a/perl-xCAT/xCAT/Client.pm
+++ b/perl-xCAT/xCAT/Client.pm
@@ -158,7 +158,7 @@ sub submit_request {
   my $cleanexit=0;
   while (<$client>) {
     $response .= $_;
-    if ($response =~ m/<\/xcatresponse>/) {
+    if (m/<\/xcatresponse>/) {
       $rsp = XMLin($response,SuppressEmpty=>undef,ForceArray=>1);
       $response='';
       $callback->($rsp);