From 2152add071366eff08242f685b9ee2641594ed52 Mon Sep 17 00:00:00 2001 From: sakolish Date: Tue, 15 Apr 2008 13:36:10 +0000 Subject: [PATCH] Remove unused modified usage - Line #49 git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@1055 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd --- perl-xCAT-2.0/xCAT/PPCfsp.pm | 19 ++----------------- 1 file changed, 2 insertions(+), 17 deletions(-) diff --git a/perl-xCAT-2.0/xCAT/PPCfsp.pm b/perl-xCAT-2.0/xCAT/PPCfsp.pm index 23b8bdd50..6f98a0c98 100644 --- a/perl-xCAT-2.0/xCAT/PPCfsp.pm +++ b/perl-xCAT-2.0/xCAT/PPCfsp.pm @@ -45,29 +45,14 @@ sub parse_args { my $command = $request->{command}; my @rsp = keys %{$cmds{$command}}; my $args = $request->{arg}; - my $cmd = join( '|',@rsp ); my %opt = (); - ############################################# - # Modify usage statement - ############################################# - my $option = "{configure|deconfigure}"; - $cmd =~ s/spdump/\n\t spdump/; - $cmd =~ s/sysdump/\n\t sysdump/; - $cmd =~ s/time/\n\t time [hh:mm:ss]/; - $cmd =~ s/date/\n\t date [mm-dd-yyyy]/; - $cmd =~ s/autopower/\n\t autopower [enable|disable]/; - $cmd =~ s/iocap/\n\t iocap [enable|disable]/; - $cmd =~ s/decfg/\n\t decfg [{enable|disable} policy,...]/; - $cmd =~ s/memdecfg/\n\t memdecfg [$option unit=id (unit|bank)=all|id,...]/; - $cmd =~ s/procdecfg/\n\t procdecfg [$option unit=id all|id,...]/; - ############################################# # 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