diff options
| author | dakkar <dakkar@thenautilus.net> | 2020-01-11 14:59:16 +0000 |
|---|---|---|
| committer | dakkar <dakkar@thenautilus.net> | 2020-01-11 14:59:16 +0000 |
| commit | 82de046fe2813a016450b3568b2db7286cf5d57c (patch) | |
| tree | 2efc1da0c4fbff494fac715ba269807f55424512 /lib | |
| parent | lock when reading, too (diff) | |
| download | MaildirIndexer-82de046fe2813a016450b3568b2db7286cf5d57c.tar.gz MaildirIndexer-82de046fe2813a016450b3568b2db7286cf5d57c.tar.bz2 MaildirIndexer-82de046fe2813a016450b3568b2db7286cf5d57c.zip | |
allow multiple maildirs on cmdline
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/MaildirIndexer/ScanDir.rakumod | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lib/MaildirIndexer/ScanDir.rakumod b/lib/MaildirIndexer/ScanDir.rakumod index c45d787..e909d58 100644 --- a/lib/MaildirIndexer/ScanDir.rakumod +++ b/lib/MaildirIndexer/ScanDir.rakumod @@ -3,7 +3,7 @@ unit module MaildirIndexer::ScanDir; class End {}; -sub scan-dir(IO() $path --> Supply) is export { +sub scan-dir(@paths --> Supply) is export { supply { my %watched-dirs; @@ -24,8 +24,8 @@ sub scan-dir(IO() $path --> Supply) is export { } } - sub add-dir(IO::Path $dir) { - my @todo = $dir; + sub add-dir(IO::Path @dirs) { + my (@todo) = @dirs; while @todo { my $next = @todo.shift; @@ -46,7 +46,7 @@ sub scan-dir(IO() $path --> Supply) is export { } - add-dir($path); + add-dir(Array[IO::Path].new(@paths».IO)); emit End; } } |