run: Avoid SIGPIPE

diff --git a/TODO b/TODO
index 140da972b2d271da76a56a38d66412862bbe193e..2d381aad46ed8de824bb8b692fd191a0d2e23861 100644 (file)
--- a/TODO
+++ b/TODO
@@ -7,3 +7,4 @@
        - global error indicators should be displayed in red
 - Terminology: machine vs. host
 - Detector of orphans (unused queue dirs, jobs on non-existent machines, non-queued jobs)
+- When bex run uploads a temporary file, shouldn't it be more insistent on removing it on failures?

diff --git a/lib/bin/bex-run b/lib/bin/bex-run
index 270c0ce9b66d23baa25700a93e75439d4ca3d903..97d46c08de2e8c36d2f22ac2efa15b0d0c22bc02 100755 (executable)
--- a/lib/bin/bex-run
+++ b/lib/bin/bex-run
@@ -30,6 +30,9 @@ GetOptions(
        "help" => \&usage,
 ) or die "Try `bex run --help' for more information.\n";
 
+# We do not want SIGPIPE on writes to the status FIFO
+$SIG{'PIPE'} = 'IGNORE';
+
 my $status_fd;
 if (defined $status_fifo) {
        open $status_fd, '>>', $status_fifo or die "Cannot open status FIFO: $!";