Further move some modules to lower memory
git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@2903 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
parent
0052950159
commit
de597af826
@ -12,8 +12,6 @@ use POSIX qw(WNOHANG nice);
|
||||
use xCAT::Table;
|
||||
use xCAT::Utils;
|
||||
use xCAT::MsgUtils;
|
||||
use xCAT::Template;
|
||||
#use xCAT::Postage;
|
||||
use Data::Dumper;
|
||||
use Getopt::Long;
|
||||
Getopt::Long::Configure("bundling");
|
||||
@ -411,6 +409,7 @@ sub mkinstall
|
||||
my %hents =
|
||||
%{$hmtab->getNodesAttribs(\@nodes,
|
||||
['serialport', 'serialspeed', 'serialflow'])};
|
||||
require xCAT::Template;
|
||||
foreach $node (@nodes)
|
||||
{
|
||||
my $osinst;
|
||||
|
@ -8,7 +8,6 @@
|
||||
|
||||
#-------------------------------------------------------
|
||||
package xCAT_plugin::getpostscript;
|
||||
use xCAT::Postage;
|
||||
use xCAT::Utils;
|
||||
use xCAT::MsgUtils;
|
||||
use xCAT::NodeRange;
|
||||
@ -66,6 +65,7 @@ sub process_request
|
||||
my $state;
|
||||
if ($request->{scripttype}) { $state = $request->{scripttype}->[0];}
|
||||
|
||||
require xCAT::Postage;
|
||||
my @scriptcontents = xCAT::Postage::makescript($client,$state,$callback);
|
||||
if (scalar(@scriptcontents)) {
|
||||
$rsp->{data} = \@scriptcontents;
|
||||
|
@ -11,8 +11,6 @@ use File::Temp qw/tempdir/;
|
||||
use xCAT::Table;
|
||||
use xCAT::Utils;
|
||||
use xCAT::MsgUtils;
|
||||
use xCAT::Template;
|
||||
use xCAT::Postage;
|
||||
use Data::Dumper;
|
||||
use Getopt::Long;
|
||||
Getopt::Long::Configure("bundling");
|
||||
@ -261,6 +259,7 @@ sub mkinstall
|
||||
my $node;
|
||||
my $ostab = xCAT::Table->new('nodetype');
|
||||
my %doneimgs;
|
||||
require xCAT::Template; #only used here, load so memory can be COWed
|
||||
foreach $node (@nodes)
|
||||
{
|
||||
my $osinst;
|
||||
|
@ -12,8 +12,6 @@ use xCAT::Table;
|
||||
use xCAT::Utils;
|
||||
use Socket;
|
||||
use xCAT::MsgUtils;
|
||||
use xCAT::Template;
|
||||
use xCAT::Postage;
|
||||
use Data::Dumper;
|
||||
use Getopt::Long;
|
||||
Getopt::Long::Configure("bundling");
|
||||
@ -204,6 +202,7 @@ sub mkinstall
|
||||
});
|
||||
return;
|
||||
}
|
||||
require xCAT::Template;
|
||||
foreach $node (@nodes)
|
||||
{
|
||||
my $osinst;
|
||||
|
Loading…
x
Reference in New Issue
Block a user