From d59f74f08e2d5030b98b4f27c28980f68d92e6f2 Mon Sep 17 00:00:00 2001 From: zhanx Date: Mon, 3 Nov 2008 07:24:40 +0000 Subject: [PATCH] Change PPCvm.pm to change flag --Verbose to --verbose. In man page, chvm should accept --verbose, instead of --Verbose. git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@2449 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd --- perl-xCAT/xCAT/PPCvm.pm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/perl-xCAT/xCAT/PPCvm.pm b/perl-xCAT/xCAT/PPCvm.pm index 192a416c1..e32982f09 100644 --- a/perl-xCAT/xCAT/PPCvm.pm +++ b/perl-xCAT/xCAT/PPCvm.pm @@ -69,7 +69,7 @@ sub chvm_parse_args { $Getopt::Long::ignorecase = 0; Getopt::Long::Configure( "bundling" ); - if ( !GetOptions( \%opt, qw(V|Verbose p=s) )) { + if ( !GetOptions( \%opt, qw(V|verbose p=s) )) { return( usage() ); } #################################### @@ -138,7 +138,7 @@ sub mkvm_parse_args { $Getopt::Long::ignorecase = 0; Getopt::Long::Configure( "bundling" ); - if ( !GetOptions( \%opt, qw(V|Verbose i=s n=s c=s) )) { + if ( !GetOptions( \%opt, qw(V|verbose i=s n=s c=s) )) { return( usage() ); } #################################### @@ -228,7 +228,7 @@ sub rmvm_parse_args { $Getopt::Long::ignorecase = 0; Getopt::Long::Configure( "bundling" ); - if ( !GetOptions( \%opt, qw(V|Verbose) )) { + if ( !GetOptions( \%opt, qw(V|verbose) )) { return( usage() ); } #################################### @@ -284,7 +284,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) )) { return( usage() ); } ####################################