From 76ccfd591db960c6d1a22a496ef928cdd7758403 Mon Sep 17 00:00:00 2001
From: "Salve J. Nilsen" <sjn@cpan.org>
Date: Wed, 13 Sep 2017 16:47:02 +0200
Subject: [PATCH] Improve generate MAIN usage for rakudobrew

When using rakudobrew, the MAIN function's generated usage text contains
very long paths on every line. This changes the output to showing the
full path on only one line, and then the basename on all subsequent lines.
---
 src/core/Main.pm | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/src/core/Main.pm b/src/core/Main.pm
index 134c12f8bbe..346691850e3 100644
--- a/src/core/Main.pm
+++ b/src/core/Main.pm
@@ -92,10 +92,14 @@ my sub MAIN_HELPER($retval = 0) {
             # Not in PATH
             $name;
         }
+        my sub basename($name) { $*SPEC.splitpath($name)[2] }
 
         my $prog-name = %*ENV<PERL6_PROGRAM_NAME>:exists
           ?? %*ENV<PERL6_PROGRAM_NAME>
           !! $*PROGRAM-NAME;
+        my $prog-basename = $prog-name eq '-e'
+          ?? "-e '...'"
+          !! basename($prog-name);
         $prog-name = $prog-name eq '-e'
           ?? "-e '...'"
           !! strip_path_prefix($prog-name);
@@ -154,7 +158,7 @@ my sub MAIN_HELPER($retval = 0) {
             if $sub.WHY {
                 $docs = '-- ' ~ $sub.WHY.contents
             }
-            my $msg = join(' ', $prog-name, @required-named, @optional-named, @positional, $docs // '');
+            my $msg = join(' ', $prog-basename, @required-named, @optional-named, @positional, $docs // '');
             @help-msgs.push($msg);
         }
 
@@ -164,7 +168,7 @@ my sub MAIN_HELPER($retval = 0) {
             @help-msgs.append(@arg-help.map: { '  ' ~ .key ~ ' ' x ($offset - .key.chars) ~ .value });
         }
 
-        my $usage = "Usage:\n" ~ @help-msgs.map('  ' ~ *).join("\n");
+        my $usage = "Usage for {$prog-name}:\n" ~ @help-msgs.map('  ' ~ *).join("\n");
         $usage;
     }