Skip to content

Commit

Permalink
[minor] added comment removed empty line
Browse files Browse the repository at this point in the history
  • Loading branch information
patrickas committed Jun 9, 2010
1 parent 14d1542 commit 037a9db
Showing 1 changed file with 1 addition and 2 deletions.
3 changes: 1 addition & 2 deletions 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) {
Expand All @@ -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");
Expand Down

0 comments on commit 037a9db

Please sign in to comment.