From 1ab0ea3f0e1fa633d9a0ae2dca32ae60d332b47a Mon Sep 17 00:00:00 2001
From: zhaoertao <zhaoertao@8638fb3e-16cb-4fca-ae20-7b5d299a9bcd>
Date: Tue, 24 Jul 2012 06:52:20 +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/branches/2.7@13337 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 f7f3d20b6..c0f9ca4b6 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."\$", "\$";