arif/xcat-core
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Attempt to trim down memory usage per 'trivial' client. IO::Socket and SSL consume most of the rest

Browse Source 
git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@9241 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
jbjohnso 2011-04-07 18:42:22 +00:00
parent f73ee11fd4
commit aa8f8b3535
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
perl-xCAT/xCAT/Client.pm
View File

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