From 4b01f82e1c2470a15d9b4342dd83d4368a53c6ac Mon Sep 17 00:00:00 2001 From: wuzhy Date: Thu, 11 Mar 2010 11:01:21 +0000 Subject: [PATCH] Fix bug 2801563 git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@5444 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd --- perl-xCAT/xCAT/PPCfsp.pm | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) diff --git a/perl-xCAT/xCAT/PPCfsp.pm b/perl-xCAT/xCAT/PPCfsp.pm index 5c8919098..7a6390c63 100644 --- a/perl-xCAT/xCAT/PPCfsp.pm +++ b/perl-xCAT/xCAT/PPCfsp.pm @@ -1417,9 +1417,17 @@ sub sysdump { # Get current dump settings ###################################### foreach ( my $i=0; $i<3; $i++ ) { - if ( $html !~ s/selected value='(\d+)'// ) { + if ( ($html !~ s/Dump policy:\s+(\w+)//) and ($i == 0) ) { + goto ERROR; + } else { + next; + } + + if ( ($html !~ s/selected value='(\d+)'//) and ($i != 0) ) { +ERROR: return( [RC_ERROR,"Error getting dump settings"] ); } + push @d, $1; } ######################################