diff options
author | dakkar <dakkar@thenautilus.net> | 2019-12-29 11:29:01 +0000 |
---|---|---|
committer | dakkar <dakkar@thenautilus.net> | 2019-12-29 11:29:01 +0000 |
commit | a845ddff5ac0a1ea3a85836554b6901554cf839d (patch) | |
tree | 904ef1b06d357e04378b4a0f719b059e4f256eec /lib/MaildirIndexer | |
parent | 6.d has been stable a while (diff) | |
download | MaildirIndexer-a845ddff5ac0a1ea3a85836554b6901554cf839d.tar.gz MaildirIndexer-a845ddff5ac0a1ea3a85836554b6901554cf839d.tar.bz2 MaildirIndexer-a845ddff5ac0a1ea3a85836554b6901554cf839d.zip |
warn exceptions' normal stringification, not their `.perl`
Diffstat (limited to 'lib/MaildirIndexer')
-rw-r--r-- | lib/MaildirIndexer/Parser.pm6 | 2 | ||||
-rw-r--r-- | lib/MaildirIndexer/ScanDir.pm6 | 2 | ||||
-rw-r--r-- | lib/MaildirIndexer/Store.pm6 | 2 |
3 files changed, 3 insertions, 3 deletions
diff --git a/lib/MaildirIndexer/Parser.pm6 b/lib/MaildirIndexer/Parser.pm6 index 93d5f3f..1aa658b 100644 --- a/lib/MaildirIndexer/Parser.pm6 +++ b/lib/MaildirIndexer/Parser.pm6 @@ -101,7 +101,7 @@ multi parse-email(IO::Socket::Async:D $s --> MaildirIndexer::Email) is export { multi parse-email(Str:D $email-str, :$path = IO --> MaildirIndexer::Email) is export { my MaildirIndexer::Email $result; MaildirIndexer::LogTimelineSchema::Parse::Email::Str.log: -> { - CATCH { warn .perl; return Nil }; + CATCH { warn $_; return Nil }; with Message.parse($email-str,:actions(Message-actions.new(:$path))) { $result = .made; } diff --git a/lib/MaildirIndexer/ScanDir.pm6 b/lib/MaildirIndexer/ScanDir.pm6 index a8dfe97..b21fd81 100644 --- a/lib/MaildirIndexer/ScanDir.pm6 +++ b/lib/MaildirIndexer/ScanDir.pm6 @@ -8,7 +8,7 @@ sub scan-dir(IO() $path --> Supply) is export { sub add-dir(IO::Path $dir, :$initial) { %watched-dirs{$dir} = True; - CATCH { when X::IO::Dir { }; default { warn .perl } } + CATCH { when X::IO::Dir { }; default { warn $_ } } whenever $dir.watch { my $path-io = .path.IO; diff --git a/lib/MaildirIndexer/Store.pm6 b/lib/MaildirIndexer/Store.pm6 index 5339bf3..502d60e 100644 --- a/lib/MaildirIndexer/Store.pm6 +++ b/lib/MaildirIndexer/Store.pm6 @@ -18,7 +18,7 @@ method dump(--> Nil) { method start(--> Nil) { for ^$.workers { start react { - CATCH { warn .perl }; + CATCH { warn $_ }; whenever $.file-channel -> $file { if $file.e && $file.f { MaildirIndexer::LogTimelineSchema::Store::Add.log: :file($file.path), -> { |