-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

@@ -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);