From fe27cd788fdd683fa0fc89644c4f5ee7850da4ce Mon Sep 17 00:00:00 2001
From: zhaoertao <zhaoertao@8638fb3e-16cb-4fca-ae20-7b5d299a9bcd>
Date: Tue, 24 Jul 2012 06:53:31 +0000
Subject: [PATCH] fix a bug about 'chvm <lpar> lparname=xxx' not work properly

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@13338 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
---
 perl-xCAT/xCAT/FSPvm.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/perl-xCAT/xCAT/FSPvm.pm b/perl-xCAT/xCAT/FSPvm.pm
index c3a0c8a5a..29f2ed0d0 100644
--- a/perl-xCAT/xCAT/FSPvm.pm
+++ b/perl-xCAT/xCAT/FSPvm.pm
@@ -60,7 +60,7 @@ sub chvm_parse_extra_options {
 			return "no value specified";
 		}
 		if ($cmd =~ /^lparname$/) {
-			if ($value ne '*' && $value !~ /^[a-zA-Z0-9-_]$/) {
+			if ($value ne '*' && $value !~ /^[a-zA-Z0-9-_]+$/) {
 				return "'$value' invalid";
 			}	
 			my $len = rindex $value."\$", "\$";