diff --git a/compare-cooking.perl b/compare-cooking.perl
index 2ec6c95915..018268a92a 100755
--- 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) {