1 files changed, 8 insertions, 0 deletions
diff --git a/selftest/selftest.pl b/selftest/selftest.pl
index 2680b6adce..33af5e29b7 100755
--- a/selftest/selftest.pl
+++ b/selftest/selftest.pl
@@ -166,6 +166,14 @@ my $prefix = "./st";
 my @includes = ();
 my @excludes = ();
 
+sub pipe_handler {
+	my $sig = shift @_;
+	print STDERR "Exiting early because of SIGPIPE.\n";
+	exit(1);
+}
+
+$SIG{PIPE} = \&pipe_handler;
+
 sub find_in_list($$)
 {
 	my ($list, $fullname) = @_;