From eee304bf014da143aa2a03847f4af51f0fa29188 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ian@liberator.relativity.greenend.org.uk>
Date: Sun, 23 Aug 2009 11:22:11 +0100
Subject: [PATCH 1/1] pipethrough_run_along checks for errors on $tf

---
 yarrg/Commods.pm | 1 +
 1 file changed, 1 insertion(+)

diff --git a/yarrg/Commods.pm b/yarrg/Commods.pm
index 13f5812..27e06e8 100644
--- a/yarrg/Commods.pm
+++ b/yarrg/Commods.pm
@@ -257,6 +257,7 @@ sub pipethrough_prep () {
 
 sub pipethrough_run_along ($$$@) {
     my ($tf, $childprep, $cmd, @a) = @_;
+    $tf->error and die $!;
     $tf->flush or die $!;
     $tf->seek(0,0) or die $!;
     my $fh= new IO::File;
-- 
2.30.2