From 01516a7171ccdcb06e3b85e82721dd483f4315d1 Mon Sep 17 00:00:00 2001
From: Jernej Kos <jernej@kos.mx>
Date: Sun, 25 Dec 2016 21:29:43 +0100
Subject: [PATCH] Ignore SIGPIPE in child worker

---
 lib/App/MtAws/ChildWorker.pm | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/lib/App/MtAws/ChildWorker.pm b/lib/App/MtAws/ChildWorker.pm
index 83a8f5e3..e7cc2352 100644
--- a/lib/App/MtAws/ChildWorker.pm
+++ b/lib/App/MtAws/ChildWorker.pm
@@ -48,6 +48,9 @@ sub process
 {
 	my ($self) = @_;
 
+	# Ignore SIGPIPE.
+	$SIG{'PIPE'} = 'IGNORE';
+
 	my $tochild = $self->{tochild};
 	my $fromchild = $self->{fromchild};
 	while (1) {