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) = @_;