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
This commit is contained in:
jjhua 2011-03-04 06:59:07 +00:00
parent bbac9b2faf
commit 747e6c31d9

View File

@ -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