work around PROGRAM-NAME displaying a SHA hash

Author: stmuk

bin/p6doc-index

@@ -12,7 +12,7 @@ sub findbin() returns Str {
 constant INDEX = findbin() ~ 'index.data';
 
 multi sub MAIN() {
-    my $me = $*PROGRAM-NAME.IO.basename;
+    my $me = 'p6doc-index';
 
     say "Usage: $me build        to build an index for 'p6doc -f'";
     say "Usage: $me list         to list the names";