X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~yarrgweb/git?a=blobdiff_plain;f=yarrg%2FCommods.pm;h=27e06e867e39bf56d5cfd9ed65f49a37b881b726;hb=b54e4d479114f7641bddf8a47d075639323620d2;hp=13f581241fa1bd770e166e7e1cf4e581e36c473c;hpb=fceed60843f6a7c037b908eb529b542ad263c500;p=ypp-sc-tools.db-live.git

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;