From: <jj...@us...> - 2009-10-19 05:53:34
|
Revision: 4407 http://xcat.svn.sourceforge.net/xcat/?rev=4407&view=rev Author: jjhua Date: 2009-10-19 05:53:17 +0000 (Mon, 19 Oct 2009) Log Message: ----------- Remove or comment out "print Dumper" statements Modified Paths: -------------- xcat-core/trunk/perl-xCAT/xCAT/PPCrflash.pm Modified: xcat-core/trunk/perl-xCAT/xCAT/PPCrflash.pm =================================================================== --- xcat-core/trunk/perl-xCAT/xCAT/PPCrflash.pm 2009-10-19 04:52:31 UTC (rev 4406) +++ xcat-core/trunk/perl-xCAT/xCAT/PPCrflash.pm 2009-10-19 05:53:17 UTC (rev 4407) @@ -12,7 +12,6 @@ use File::Spec; use POSIX qw(tmpnam); -use Data::Dumper; my $packages_dir= (); @@ -730,7 +729,6 @@ 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 @@ 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 @@ $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]; } This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |