From 037a9db214ec421be4b8194b13384d4f2b24112e Mon Sep 17 00:00:00 2001 From: Patrick Abi Salloum Date: Thu, 10 Jun 2010 02:05:08 +0300 Subject: [PATCH] [minor] added comment removed empty line --- src/core/MAIN.pm | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/src/core/MAIN.pm b/src/core/MAIN.pm index 55f6cfb46a7..71e277914d0 100644 --- a/src/core/MAIN.pm +++ b/src/core/MAIN.pm @@ -1,4 +1,4 @@ -our sub USAGE ($sub=&MAIN) { +our sub USAGE ($sub=&MAIN) { #The user can still overwrite this in his program to get customized USAGE message my @subs = $sub ~~ Multi ?? $sub.candidates !! ($sub); my $USAGE-one-sub = sub ($sub=&MAIN) { @@ -22,7 +22,6 @@ our sub USAGE ($sub=&MAIN) { } return ($*PROGRAM_NAME eq '-e' ?? "-e '...'" !! $*PROGRAM_NAME )~ ' ' ~ @arguments.join(' '); }; - my @help-msgs = @subs.map( { $USAGE-one-sub($_) } ) ; return "Usage\n" ~ @help-msgs.join("\nor\n");