From 4c6912abc18ab4398fda385be5b8a7000f60a600 Mon Sep 17 00:00:00 2001 From: sakolish Date: Wed, 16 Apr 2008 17:45:49 +0000 Subject: [PATCH] Grouped /^(fsp|lpar)$/ in regexp git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@1095 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd --- perl-xCAT-2.0/xCAT/PPCinv.pm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/perl-xCAT-2.0/xCAT/PPCinv.pm b/perl-xCAT-2.0/xCAT/PPCinv.pm index 80880a9ef..ff8bdaf01 100644 --- a/perl-xCAT-2.0/xCAT/PPCinv.pm +++ b/perl-xCAT-2.0/xCAT/PPCinv.pm @@ -22,8 +22,8 @@ sub parse_args { # Responds with usage statement ############################################# local *usage = sub { - my $usage_string=xCAT::Usage->getUsage($command); - return( [ $_[0], $usage_string]); + my $usage_string = xCAT::Usage->getUsage($command); + return( [ $_[0], $usage_string] ); }; ############################################# # Process command-line arguments @@ -156,7 +156,7 @@ sub enumerate_cfg { ###################################### # Invalid target hardware ###################################### - if ( $type !~ /^fsp|lpar$/ ) { + if ( $type !~ /^(fsp|lpar)$/ ) { return( [RC_ERROR,"Information only available for CEC/LPAR"] ); } ###################################### @@ -237,7 +237,7 @@ sub enumerate_bus { ################################## # Invalid target hardware ################################## - if ( $type !~ /^fsp|lpar$/ ) { + if ( $type !~ /^(fsp|lpar)$/ ) { return( [RC_ERROR,"Bus information only available for CEC/LPAR"] ); } ##################################