Some minor changes for bin/p6doc

bin/p6doc

@@ -17,7 +17,7 @@ constant DEBUG      = %*ENV<P6DOC_DEBUG>;
 constant INTERACT   = %*ENV<P6DOC_INTERACT>;
 
 sub findbin() returns Str {
-    $*PROGRAM-NAME.subst(rx{<-[/\\]>+$}, '');
+    IO::Path.new($*PROGRAM-NAME).dirname ~ '/';
 }
 
 constant INDEX = findbin() ~ 'index.data';
@@ -58,7 +58,7 @@ sub show-docs(Str $path, :$section, :$no-pager) {
         say "No Pod found in $path";
         return;
     }
-    my $doc-command-str = "$*EXECUTABLE-NAME";
+    my $doc-command-str = $*EXECUTABLE-NAME;
     if $section.defined {
         %*ENV<PERL6_POD_HEADING> = $section;
         my $i = findbin() ~ '../lib';
@@ -150,7 +150,7 @@ sub disambiguate-f-search($docee, %data) {
     }
 
     my $final-docee;
-    my $total-found = [+] %found.values.map( *.elems );
+    my $total-found = %found.values.map( +* ).sum;
     if ! $total-found {
         say "No documentation found for a routine named '$docee'";
         exit 2;