Traversing @*INC correctly

Author: andreoss

bin/p6doc

@@ -27,7 +27,7 @@ sub tempfile() {
 
 sub search-paths() {
     (findbin()  X~ <../doc/perl6/lib/ ../lib/> X~ '',<Type/ Language/ Routine/>),
-    @*INC>>.Str.map({ /\/$/ ?? $_ !! $_ ~ '/' });
+    @*INC.map({CompUnitRepo.new($_)})».IO».Str.map({ /\/$/ ?? $_ !! $_ ~ '/' });
 }
 
 sub module-names(Str $modulename) {

bin/p6doc-index

@@ -28,7 +28,7 @@ multi sub MAIN('build') {
 
     # XXX p6doc probably uses another path to @*INC which is probably incomplete
 
-    for ( @*INC ) -> $lib_path is copy {
+    for @*INC.map({CompUnitRepo.new($_)})».IO -> $lib_path is copy {
 
         $lib_path = $lib_path.Str;
         my @files :=  find(:dir($lib_path),:type('file'));