Traversing @*INC correctly

Raku · May 22, 2015 · 89b2d19 · 89b2d19
1 parent 2475551
commit 89b2d19
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/bin/p6doc b/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) {

diff --git a/bin/p6doc-index b/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'));