From: epg <>
Date: Fri, 3 Feb 2006 02:24:12 +0000 (+0000)
Subject: Ignore SIGPIPE.  I can't believe perl leaves the default SIGPIPE
X-Git-Url: https://diplodocus.org/git/minc/commitdiff_plain/dfc4bbc5a351f82323e5ee55ce4f353cd653f024

Ignore SIGPIPE.  I can't believe perl leaves the default SIGPIPE
behavior of aborting intact.  At least 5.8.0 does on some Linuxes...
---

diff --git a/minc b/minc
index a48e412..97cd280 100755
--- a/minc
+++ b/minc
@@ -37,6 +37,8 @@ rest of the line.
 use strict;
 use warnings;
 
+$SIG{'PIPE'} = 'IGNORE';
+
 use Data::Dumper;
 use Errno;
 use Fcntl qw(O_WRONLY O_EXCL O_CREAT);