From f9b5f46e98cfcba823f56c6c07f5131b482f2b81 Mon Sep 17 00:00:00 2001
From: dakkar <dakkar@thenautilus.net>
Date: Tue, 2 Jan 2018 15:06:22 +0000
Subject: DirScanner returns objects with useful .CWD

---
 lib/Ultramarine/Model/DirScanner.pm6 | 4 ++--
 1 file 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 });
 
-- 
cgit v1.2.3