Ignore sigpipe in external diff driver

Otherwise the caller will notice (yuck) when the user quits the pager without reading through to the end
2025-12-12 20:36:24 +01:00 · 2010-04-12 14:30:59 -07:00
parent 2f557677f4
commit bc72e07f3e
1 changed files with 2 additions and 0 deletions
--- 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) {