From 4ab4e9dcd1522c973b9a675d49fdef6a8469d5a9 Mon Sep 17 00:00:00 2001
From: jbjohnso <jbjohnso@8638fb3e-16cb-4fca-ae20-7b5d299a9bcd>
Date: Mon, 14 Apr 2008 13:55:17 +0000
Subject: [PATCH] -Fix perl syntax error in Client.pm called out with perl -Wc

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

diff --git a/perl-xCAT-2.0/xCAT/Client.pm b/perl-xCAT-2.0/xCAT/Client.pm
index c21cb1de1..8fe608c8a 100644
--- a/perl-xCAT-2.0/xCAT/Client.pm
+++ b/perl-xCAT-2.0/xCAT/Client.pm
@@ -141,7 +141,7 @@ sub submit_request {
         die "Connection failure: $@"
      }
   }
-  my $msg=XMLout($request,RootName=>xcatrequest,NoAttr=>1,KeyAttr=>[]);
+  my $msg=XMLout($request,RootName=>'xcatrequest',NoAttr=>1,KeyAttr=>[]);
   print $client $msg;
   my $response;
   my $rsp;