diff options
Diffstat (limited to 'selftest/selftest.pl')
-rwxr-xr-x | selftest/selftest.pl | 8 |
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) = @_; |