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/Parser.pm6 | |
| 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/Parser.pm6')
| -rw-r--r-- | lib/MaildirIndexer/Parser.pm6 | 2 |
1 files changed, 1 insertions, 1 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; } |