From 8e7e7d97b6ec9aac4acc63147c7c2dfe859506e5 Mon Sep 17 00:00:00 2001
From: wuzhy <wuzhy@8638fb3e-16cb-4fca-ae20-7b5d299a9bcd>
Date: Fri, 12 Mar 2010 01:39:08 +0000
Subject: [PATCH] Fix bug 2801563

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@5448 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
---
 perl-xCAT/xCAT/PPCfsp.pm | 14 ++++++++------
 1 file changed, 8 insertions(+), 6 deletions(-)

diff --git a/perl-xCAT/xCAT/PPCfsp.pm b/perl-xCAT/xCAT/PPCfsp.pm
index 7a6390c63..446f4d106 100644
--- a/perl-xCAT/xCAT/PPCfsp.pm
+++ b/perl-xCAT/xCAT/PPCfsp.pm
@@ -1417,15 +1417,17 @@ sub sysdump {
     # Get current dump settings 
     ######################################
     foreach ( my $i=0; $i<3; $i++ ) {
-        if ( ($html !~ s/Dump policy:\s+(\w+)//) and ($i == 0) ) {
-            goto ERROR;
-        } else {
-            next;
+	if ($i == 0) {
+            if ($html !~ /Dump policy:\s+(\w+)/) {
+                goto ERROR;
+            }
         }
 
-        if ( ($html !~ s/selected value='(\d+)'//) and ($i != 0) ) {
+        if ($i != 0) {
+	    if ($html !~ s/selected value='(\d+)'//) {
 ERROR:
-            return( [RC_ERROR,"Error getting dump settings"] );
+                return( [RC_ERROR,"Error getting dump settings"] );
+	    }
         }
 
         push @d, $1;