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

comment out use Dumper

Browse Source 
git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@9274 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
lissav 2011-04-11 16:17:08 +00:00
parent 052ed9179d
commit 3189afe3bd
11 changed files with 11 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
xCAT-client/bin/getxcatdocs
View File

@ -14,7 +14,7 @@ use strict;
#use lib "$::XCATROOT/lib/perl";
#use xCAT::Utils;
use Getopt::Long;
use Data::Dumper;
#use Data::Dumper;
#my $VERSION;
my $HELP;

2
xCAT-client/bin/pping
View File

@ -16,7 +16,7 @@ use POSIX qw(:signal_h :errno_h :sys_wait_h);
use IO::Socket::SSL;
use XML::Simple;
$XML::Simple::PREFERRED_PARSER='XML::Parser';
use Data::Dumper;
#use Data::Dumper;
use IO::Handle;
use IO::Select;
use Getopt::Long;

2
xCAT-client/bin/ppping
View File

@ -24,7 +24,7 @@ use XML::Simple;
if ($^O =~ /^linux/i) {
$XML::Simple::PREFERRED_PARSER='XML::Parser';
}
use Data::Dumper;
#use Data::Dumper;
use IO::Handle;
use IO::Select;
use Getopt::Long;

2
xCAT-client/bin/prsync
View File

@ -8,7 +8,7 @@ use lib "$::XCATROOT/lib/perl";
use IO::Socket::SSL;
use XML::Simple;
$XML::Simple::PREFERRED_PARSER='XML::Parser';
use Data::Dumper;
#use Data::Dumper;
use IO::Handle;
use IO::Select;
use xCAT::Utils;

2
xCAT-client/bin/pscp
View File

@ -8,7 +8,7 @@ use lib "$::XCATROOT/lib/perl";
use IO::Socket::SSL;
use XML::Simple;
$XML::Simple::PREFERRED_PARSER='XML::Parser';
use Data::Dumper;
#use Data::Dumper;
use IO::Handle;
use IO::Select;
use Thread qw(yield);

2
xCAT-client/bin/psh
View File

@ -9,7 +9,7 @@ use lib "$::XCATROOT/lib/perl";
use IO::Socket::SSL;
use XML::Simple;
$XML::Simple::PREFERRED_PARSER='XML::Parser';
use Data::Dumper;
#use Data::Dumper;
use IO::Handle;
use IO::Select;
use xCAT::Utils;

2
xCAT-client/bin/wcons
View File

@ -2,7 +2,7 @@
#A placeholder wcons, a fuller port from 1.3 is needed
use Getopt::Long qw(:config getopt_compat pass_through);
use File::Basename;
use Data::Dumper;
#use Data::Dumper;
use strict;
unless ($ENV{DISPLAY}) {
print '$DISPLAY not set';

3
xCAT-client/bin/wvid
View File

@ -12,9 +12,8 @@ unless ($xcatroot) {
$xcatroot = "/opt/xcat"
}
use File::Basename;
#use Data::Dumper;
use xCAT::Client;
use Data::Dumper;
#use Data::Dumper;
sub process_response {
my $resp = shift;
foreach my $rst (\@{$resp->{node}}) {

2
xCAT-client/bin/xCATWorld
View File

@ -8,7 +8,7 @@ use lib "$::XCATROOT/lib/perl";
use IO::Socket::SSL;
use IO::Socket::INET;
use File::Basename;
use Data::Dumper;
#use Data::Dumper;
use Getopt::Long;
use xCAT::MsgUtils;
use xCAT::Client submit_request;

2
xCAT-client/bin/xcoll
View File

@ -2,7 +2,7 @@
# IBM(c) 2007 EPL license http://www.eclipse.org/legal/epl-v10.html
BEGIN { $::XCATROOT = $ENV{'XCATROOT'} ? $ENV{'XCATROOT'} : -d '/opt/xcat' ? '/opt/xcat' : '/usr'; }
use lib "$::XCATROOT/lib/perl";
use Data::Dumper;
#use Data::Dumper;
use xCAT::Client;
use Getopt::Long;
use strict;

2
xCAT-client/bin/xcsv
View File

@ -2,7 +2,7 @@
# IBM(c) 2007 EPL license http://www.eclipse.org/legal/epl-v10.html
BEGIN { $::XCATROOT = $ENV{'XCATROOT'} ? $ENV{'XCATROOT'} : -d '/opt/xcat' ? '/opt/xcat' : '/usr'; }
use lib "$::XCATROOT/lib/perl";
use Data::Dumper;
#use Data::Dumper;
use xCAT::Client;
my %columns;
use strict;