From 47f2caa77d47efc6b37858bbf6e8370033def9b2 Mon Sep 17 00:00:00 2001 From: zhaoertao Date: Tue, 19 Jul 2011 08:10:58 +0000 Subject: [PATCH] fix bugs when check 'dev' or 'celogin1' status git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@10117 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd --- perl-xCAT/xCAT/PPCfsp.pm | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/perl-xCAT/xCAT/PPCfsp.pm b/perl-xCAT/xCAT/PPCfsp.pm index 310f6e14f..b54c1b3e6 100644 --- a/perl-xCAT/xCAT/PPCfsp.pm +++ b/perl-xCAT/xCAT/PPCfsp.pm @@ -261,8 +261,7 @@ sub loginstate { if (!$res->is_success()) { return ([RC_ERROR, $res->status_line]); } - if ($res->content =~ m#$log_name(\w+)#) { - if ($res->content =~ m#[\d\D]+Status[\d\D]+$log_name]+>(\w+)#) { + if ($res->content =~ m#[\d\D]+Status[\d\D]+$log_name]?>(\w+)#) { my $out = sprintf("%9s: %8s", $log_name, $1); return ( [SUCCESS, $out]); } else {