By ignoring SIGPIPE, we hit our own error path and emit an informative
error message instead of dying abruptly and requiring somebody to run
`echo $?' to see the child status from their shell.
---
 t/xap_helper.t | 1 +
 1 file changed, 1 insertion(+)

diff --git a/t/xap_helper.t b/t/xap_helper.t
index 37679ae9..ec78998c 100644
--- a/t/xap_helper.t
+++ b/t/xap_helper.t
@@ -59,6 +59,7 @@ my $doreq = sub {
        $x;
 };
 
+local $SIG{PIPE} = 'IGNORE';
 my $env = { PERL5LIB => join(':', @INC) };
 my $test = sub {
        my (@cmd) = @_;

Reply via email to