don't die if the other end closes the socket

1 files changed, 7 insertions, 0 deletions

diff --git a/lib/MaildirIndexer/Server.rakumod b/lib/MaildirIndexer/Server.rakumod
index 07dfb4a..b1b2016 100644
--- a/lib/MaildirIndexer/Server.rakumod
+++ b/lib/MaildirIndexer/Server.rakumod
@@ -25,6 +25,13 @@ method serve() {
                 with parse-email($conn) -> $email {
                     with $.store.mailbox-for-email($email) -> $mailbox {
                         await $conn.print("$mailbox\x0d\x0a");
+                        # apparently socket failures ("broken pipe",
+                        # "Cannot write to a closed socket") are
+                        # X::AdHoc
+                        CATCH {
+                            when X::OS { }; when X::AdHoc { };
+                            default { .rethrow }
+                        }
                     }
                 }
             }