From d20009c46dbf3b5dcbc07f48aac03a5db49beea6 Mon Sep 17 00:00:00 2001
From: zhaoertao <zhaoertao@8638fb3e-16cb-4fca-ae20-7b5d299a9bcd>
Date: Tue, 2 Aug 2011 09:27:57 +0000
Subject: [PATCH] resolve some bugs for chvm|lsvm

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

diff --git a/perl-xCAT/xCAT/FSPvm.pm b/perl-xCAT/xCAT/FSPvm.pm
index c88be7252..5e7e97081 100644
--- a/perl-xCAT/xCAT/FSPvm.pm
+++ b/perl-xCAT/xCAT/FSPvm.pm
@@ -585,7 +585,7 @@ sub lsvm_parse_args {
     $Getopt::Long::ignorecase = 0;
     Getopt::Long::Configure( "bundling" );
 
-    if ( !GetOptions( \%opt, qw(V|verbose ) )) {
+    if ( !GetOptions( \%opt, qw(V|verbose l|long) )) {
         return( usage() );
     }
     ####################################
@@ -854,7 +854,9 @@ sub get_lpar_lpar_name {
     my $attr = shift;
     my $values = xCAT::FSPUtils::fsp_api_action($name, $attr, "get_lpar_name");
     if (@$values[1] && ((@$values[1] =~ /Error/i) && (@$values[2] ne '0'))) {
-        return $values;
+        my @result = ();
+        push @result, $values;
+        return \@result;
     }
     return @$values[1];
 }