From 55ffffed5c570c516ccdf99b5e00f1486da70188 Mon Sep 17 00:00:00 2001 From: sakolish Date: Wed, 16 Apr 2008 18:05:54 +0000 Subject: [PATCH] Grouped /^(fsp|lpar)$/ in regexp git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@1100 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd --- perl-xCAT-2.0/xCAT/PPCvitals.pm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/perl-xCAT-2.0/xCAT/PPCvitals.pm b/perl-xCAT-2.0/xCAT/PPCvitals.pm index 21d47e9ec..b94950278 100644 --- a/perl-xCAT-2.0/xCAT/PPCvitals.pm +++ b/perl-xCAT-2.0/xCAT/PPCvitals.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 @@ -222,7 +222,7 @@ sub temp { ################################# # Temperatures not available ################################# - if ( @$d[4] !~ /^fsp|lpar$/ ) { + if ( @$d[4] !~ /^(fsp|lpar)$/ ) { my $text = "$prefix Only available for CEC/LPAR"; push @result, [$name,$text,1]; next;