file is already an .IO

bin/p6doc

@@ -107,7 +107,7 @@ multi sub MAIN(Bool :$l!) {
     my @paths = search-paths() X~ <Type/ Language/> ;
     for @paths -> $dir {
         for dir($dir).sort -> $file {
-            say Str($file).IO.basename.subst('.pod','') if $file.IO.f;
+            say $file.basename.Str.subst('.pod','') if $file.f;
         }
     }
 }