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 (executable)
--- a/minc
+++ b/minc
@@ -37,6 +37,8 @@ rest of the line.
 use strict;
 use warnings;
 
 use strict;
 use warnings;
 

+$SIG{'PIPE'} = 'IGNORE';
+

 use Data::Dumper;
 use Errno;
 use Fcntl qw(O_WRONLY O_EXCL O_CREAT);
 use Data::Dumper;
 use Errno;
 use Fcntl qw(O_WRONLY O_EXCL O_CREAT);