DirScanner returns objects with useful .CWD

1 files changed, 2 insertions, 2 deletions

diff --git a/lib/Ultramarine/Model/DirScanner.pm6 b/lib/Ultramarine/Model/DirScanner.pm6
index de8ebb4..1ab35f6 100644
--- a/lib/Ultramarine/Model/DirScanner.pm6
+++ b/lib/Ultramarine/Model/DirScanner.pm6
@@ -16,7 +16,7 @@ class Ultramarine::Model::DirScanner {
                 $ret.emit($next);
                 next unless $next ~~ :d & :r & :x;
                 $next.watch().tap({ inner-scan($^event.path) });
-                for $next.dir -> $child {
+                for $next.dir(:CWD($next.CWD)) -> $child {
                     @todo.push($child);
                 }
                 CATCH {
@@ -26,7 +26,7 @@ class Ultramarine::Model::DirScanner {
         }
 
         (start {
-            inner-scan($.root);
+            inner-scan(IO::Path.new('.',:CWD($.root)));
             $ret.emit(EndOfScan);
         }).then(-> $p { $ret.quit($p.cause) if $p.status ~~ Broken });