From 747e6c31d99e3e5fcd8df8de7cc91787e2e5e7fc Mon Sep 17 00:00:00 2001
From: jjhua <jjhua@8638fb3e-16cb-4fca-ae20-7b5d299a9bcd>
Date: Fri, 4 Mar 2011 06:59:07 +0000
Subject: [PATCH] correct an error when rscan -z

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

diff --git a/perl-xCAT/xCAT/FSPscan.pm b/perl-xCAT/xCAT/FSPscan.pm
index ffc9b2e15..21ce5a590 100644
--- a/perl-xCAT/xCAT/FSPscan.pm
+++ b/perl-xCAT/xCAT/FSPscan.pm
@@ -158,15 +158,15 @@ sub enumerate {
         #print "list\n";
         #print Dumper(\@list);
 	    foreach my $lpar (@list) {
-	         $lpar =~ /lparname:\s+(\w+),\s+lparid:\s+(\d+),\s+state:/;
-		 my $name = $1;
-		 my $lparid = $2;
-                 my $prof = $1; 
-		 my $server = $fsp;
-                 my $ips  = "";
+	         $lpar =~ /lparname:\s+([\w\-]+),\s+lparid:\s+(\d+),\s+state:/;
+		     my $name = $1;
+		     my $lparid = $2;
+             my $prof = "";  # No profile for P7 IH
+		     my $server = $fsp;
+             my $ips  = "";
           	 my $port = "";
-		 $name =~ s/\-//g;
-		 $name =~ tr/A-Z/a-z/;
+		     $name =~ s/\-//g;
+		     $name =~ tr/A-Z/a-z/;
                  	
                  #####################################
                  # Save LPAR information