From 53cba2aea1ddab25cc1475f1d6080b2e9b162b25 Mon Sep 17 00:00:00 2001
From: jjhua <jjhua@8638fb3e-16cb-4fca-ae20-7b5d299a9bcd>
Date: Mon, 19 Oct 2009 05:53:17 +0000
Subject: [PATCH] Remove or comment out "print Dumper" statements

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@4407 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
---
 perl-xCAT/xCAT/PPCrflash.pm | 10 ----------
 1 file changed, 10 deletions(-)

diff --git a/perl-xCAT/xCAT/PPCrflash.pm b/perl-xCAT/xCAT/PPCrflash.pm
index 5908c8925..cc3906811 100644
--- a/perl-xCAT/xCAT/PPCrflash.pm
+++ b/perl-xCAT/xCAT/PPCrflash.pm
@@ -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];
             }