Ignore sigpipe in external diff driver

Otherwise the caller will notice (yuck) when the user
quits the pager without reading through to the end

diff --git a/compare-cooking.perl b/compare-cooking.perl
index 2ec6c959154e7b9ef04d62755e5e493eb62c32c7..018268a92a43638dd458626bd5370b2707d7b84f 100755 (executable)
--- a/compare-cooking.perl
+++ b/compare-cooking.perl
@@ -1,5 +1,7 @@
 #!/usr/bin/perl -w
 
+$SIG{'PIPE'} = 'IGNORE';
+
 my ($old, $new);
 
 if (@ARGV == 7) {