chiark / gitweb /
pipethrough_run_along checks for errors on $tf
authorIan Jackson <ian@liberator.relativity.greenend.org.uk>
Sun, 23 Aug 2009 10:22:11 +0000 (11:22 +0100)
committerIan Jackson <ian@liberator.relativity.greenend.org.uk>
Sun, 23 Aug 2009 10:22:11 +0000 (11:22 +0100)
yarrg/Commods.pm

index 13f5812..27e06e8 100644 (file)
@@ -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;