From aa8f8b3535e7ce5b46608dc7f7eba63a4416bee6 Mon Sep 17 00:00:00 2001
From: jbjohnso <jbjohnso@8638fb3e-16cb-4fca-ae20-7b5d299a9bcd>
Date: Thu, 7 Apr 2011 18:42:22 +0000
Subject: [PATCH] Attempt to trim down memory usage per 'trivial' client. 
 IO::Socket and SSL consume most of the rest

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

diff --git a/perl-xCAT/xCAT/Client.pm b/perl-xCAT/xCAT/Client.pm
index 2fdc3a0e8..942ae4f58 100644
--- a/perl-xCAT/xCAT/Client.pm
+++ b/perl-xCAT/xCAT/Client.pm
@@ -34,10 +34,9 @@ unless ($inet6support) {
 }
 
 
-use XML::Simple;
+use XML::Simple; #smaller than libxml....
 $XML::Simple::PREFERRED_PARSER='XML::Parser';
-require Data::Dumper;
-use Storable qw(dclone);
+#require Data::Dumper;
 my $xcathost='localhost:3001';
 my $plugins_dir;
 my %resps;
@@ -792,8 +791,9 @@ sub do_request {
 ###################################
 sub build_response {
   my $rsp = shift;
+  require Storable;
   foreach (keys %$rsp) {
-    my $subresp = dclone($rsp->{$_});
+    my $subresp = Storable::dclone($rsp->{$_});
     push (@{$Main::resps->{$_}}, @{$subresp});
   }
 }