work around PROGRAM-NAME displaying a SHA hash

stmuk · stmuk · commit ed0278d78549 · 2016-01-01T18:47:01.000Z
diff --git a/bin/p6doc b/bin/p6doc
@@ -72,7 +72,7 @@ sub show-docs(Str $path, :$section) {
 }
 
 multi sub MAIN() {
-    my $me = $PROGRAM-NAME.IO.basename;
+    my $me = $PROGRAM-NAME;
 
     say 'What documentation do you want to read?';
     say "Examples: $me Type::Str";

Original file line number	Diff line number	Diff line change
`@@ -72,7 +72,7 @@ sub show-docs(Str $path, :$section) {`
`72`	`72`	`}`
`73`	`73`
`74`	`74`	`multi sub MAIN() {`
`75`		`- my $me = $PROGRAM-NAME.IO.basename;`
	`75`	`+ my $me = $PROGRAM-NAME;`
`76`	`76`
`77`	`77`	`say 'What documentation do you want to read?';`
`78`	`78`	`say "Examples: $me Type::Str";`