diff options
author | dakkar <dakkar@thenautilus.net> | 2019-12-29 13:00:34 +0000 |
---|---|---|
committer | dakkar <dakkar@thenautilus.net> | 2019-12-29 13:00:34 +0000 |
commit | 1b91948f8430059677e5041733c02fd9b90f0879 (patch) | |
tree | 3db82014aa2bc75d2bc17a8e19cf987342c295b5 | |
parent | change port from cmdline (diff) | |
download | MaildirIndexer-1b91948f8430059677e5041733c02fd9b90f0879.tar.gz MaildirIndexer-1b91948f8430059677e5041733c02fd9b90f0879.tar.bz2 MaildirIndexer-1b91948f8430059677e5041733c02fd9b90f0879.zip |
close files after parsing
-rw-r--r-- | lib/MaildirIndexer/Parser.pm6 | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/lib/MaildirIndexer/Parser.pm6 b/lib/MaildirIndexer/Parser.pm6 index 1aa658b..420d4c3 100644 --- a/lib/MaildirIndexer/Parser.pm6 +++ b/lib/MaildirIndexer/Parser.pm6 @@ -69,14 +69,16 @@ multi parse-email(IO::Path:D $p --> MaildirIndexer::Email) is export { multi parse-email(IO::Path:D $p, :$headers-only! --> MaildirIndexer::Email) is export { my MaildirIndexer::Email $result; MaildirIndexer::LogTimelineSchema::Parse::Email::File.log: :file($p.path), -> { - $result = parse-email( - $p.lines( + my IO::Handle $h = $p.open( :enc<utf8-c8>, :nl-in(@separators), :!chomp, - )[0], + ); + $result = parse-email( + $h.lines()[0], path => $p, ); + $h.close(); } return $result; } |