diff options
| author | Jelmer Vernooij <jelmer@samba.org> | 2010-09-28 07:40:27 +0200 |
|---|---|---|
| committer | Jelmer Vernooij <jelmer@samba.org> | 2010-09-28 09:12:39 +0200 |
| commit | 36ffe4f467779cd282ed471f3bed8aee8a7c55bd (patch) | |
| tree | 34c376c8216b31b4b7e13f779ed4c24296f89998 /selftest/selftest.pl | |
| parent | 7ac4a710725d1e439179c3846525b3245dc3f5f6 (diff) | |
| download | samba-36ffe4f467779cd282ed471f3bed8aee8a7c55bd.tar.gz samba-36ffe4f467779cd282ed471f3bed8aee8a7c55bd.tar.bz2 samba-36ffe4f467779cd282ed471f3bed8aee8a7c55bd.zip | |
selftest: Abort early on SIGPIPE.
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) = @_; |