remove dha++

Author: stmuk

bin/p6doc

@@ -82,21 +82,20 @@ sub show-docs(Str $path, :$section, :$no-pager) {
 }
 
 multi sub MAIN() {
-    my $me = $PROGRAM-NAME;
 
     say 'What documentation do you want to read?';
-    say "Examples: $me Str";
-    say "          $me Str.split";
-    say "          $me faq";
+    say "Examples: $PROGRAM-NAME Str";
+    say "          $PROGRAM-NAME Str.split";
+    say "          $PROGRAM-NAME faq";
 
     say "\nYou can list some top level documents:";
-    say "          $me -l";
+    say "          $PROGRAM-NAME -l";
 
     say "\nYou can also look up specific method/routine definitions:";
-    say "          $me -f push";
+    say "          $PROGRAM-NAME -f push";
 
     say "\nYou can bypass the pager and print straight to stdout:";
-    say "          $me -n Str"
+    say "          $PROGRAM-NAME -n Str"
 }
 
 multi sub MAIN($docee, Bool :$n) {