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:
		| @@ -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; | ||||
|   | ||||
		Reference in New Issue
	
	Block a user