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

Comment out use/require Data:Dumper

Browse Source 
git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@9270 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
lissav 2011-04-11 13:49:13 +00:00
parent 01eb73616d
commit 8ddf863e48
6 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
perl-xCAT/xCAT/InstUtils.pm
View File

@ -29,7 +29,7 @@ require xCAT::Schema;
use xCAT::NetworkUtils;
#require Data::Dumper;
use Data::Dumper;
#use Data::Dumper;
require xCAT::NodeRange;
require DBI;

2
perl-xCAT/xCAT/MacMap.pm
View File

@ -8,7 +8,7 @@ use xCAT::MsgUtils;
use IO::Select;
use IO::Handle;
use Sys::Syslog;
use Data::Dumper;
#use Data::Dumper;
use POSIX qw/WNOHANG/;
use SNMP;
my %cisco_vlans; #Special hash structure to reflect discovered VLANS on Cisco equip

2
perl-xCAT/xCAT/NodeRange.pm
View File

@ -486,7 +486,7 @@ sub abbreviate_noderange {
push @{$sizedgroups{scalar @{$grouphash{$group}}}},$group;
}
my $node;
use Data::Dumper;
#use Data::Dumper;
#print Dumper(\%sizedgroups);
foreach (reverse sort {$a <=> $b} keys %sizedgroups) {
GROUP: foreach $group (@{$sizedgroups{$_}}) {

2
perl-xCAT/xCAT/SINV.pm
View File

@ -27,7 +27,7 @@ use xCAT::NodeRange qw/noderange abbreviate_noderange/;
use xCAT::Utils;
use Fcntl qw(:flock);
use Getopt::Long;
use Data::Dumper;
#use Data::Dumper;
my $tempfile;
my $errored = 0;
my @dshresult;

4
perl-xCAT/xCAT/Table.pm
View File

@ -36,7 +36,7 @@ use xCAT::MsgUtils;
use Sys::Syslog;
use Storable qw/freeze thaw/;
use IO::Socket;
use Data::Dumper;
#use Data::Dumper;
use POSIX qw/WNOHANG/;
use Time::HiRes qw (sleep);
use Safe;
@ -1889,7 +1889,7 @@ sub setNodesAttribs {
my $delimitedcol = &delimitcol($col);
push @sqlorderedcols, $delimitedcol;
}
use Data::Dumper;
#use Data::Dumper;
my $nodesatatime = 999; #the update case statement will consume '?' of which we are allowed 999 in the most restricted DB we support
#ostensibly, we could do 999 at a time for the select statement, and subsequently limit the update aggregation only
#to get fewer sql statements, but the code is probably more complex than most people want to read

6
perl-xCAT/xCAT/Utils.pm
View File

@ -30,7 +30,7 @@ use warnings "all";
require xCAT::InstUtils;
require xCAT::NetworkUtils;
require xCAT::Schema;
require Data::Dumper;
#require Data::Dumper;
require xCAT::NodeRange;
require DBI;
@ -466,11 +466,11 @@ sub Version
my $version = shift;
if ($version eq 'short')
{
$version = '' #XCATVERSIONSUBHERE ;
$version = '' . '2.6' ;
}
else
{
$version = 'Version ' #XCATVERSIONSUBHERE #XCATSVNBUILDSUBHERE ;
$version = 'Version ' . '2.6' . ' (svn r9267, built Mon Apr 11 09:33:21 EDT 2011)' ;
}
return $version;