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

Remove or comment out "print Dumper" statements

Browse Source 
git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@4407 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
jjhua
2009-10-19 05:53:17 +00:00
parent 31004badbd
commit 53cba2aea1
1 changed files with 0 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
perl-xCAT/xCAT/PPCrflash.pm
View File

@@ -12,7 +12,6 @@ use Getopt::Long;
use File::Spec;
use POSIX qw(tmpnam);
use Data::Dumper;
my $packages_dir= ();
@@ -730,7 +729,6 @@ sub rflash {
env => ["DSH_FROM_USERID=$current_userid","DSH_TO_USERID=$user"],
},
$subreq, 0, 1);
print Dumper(@$res);
if ($::RUNCMD_RC ) { # error from dcp
my $rsp={};
@@ -786,7 +784,6 @@ sub rflash {
env => ["DSH_FROM_USERID=$current_userid","DSH_TO_USERID=$user"],
},
$subreq, 0, 1);
print Dumper(@$res);
if ($::RUNCMD_RC ) { # error from dsh
my $rsp={};
@@ -815,13 +812,6 @@ sub rflash {
$tmp1[2] =~ /LIC_RC\s=\s(\d*)/;
if($1 != 0) { # failed
my $tmp3 = $infor{$tmp1[1]};
print "++ tmp1 ++\n";
# print Dumper(@tmp1);
print "++ tmp3 ++\n";
# print Dumper($tmp3);
print "++ infor +\n";
# print Dumper(%infor);
print "++++\n";
if($$tmp3[4] eq "power") {
$tmp1[1] = $$tmp3[5];
}