diff options
-rwxr-xr-x | draklive | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -361,7 +361,7 @@ sub run_ { sub run_foreach { my ($foreach, @command) = @_; print STDERR "running " . join(' ', @command) . "\n"; - my $pid = open3(my $cmd_in, my $cmd_out, my $cmd_err, @command); + my $pid = open3(my $cmd_in, my $cmd_out, my $cmd_err, @command) or return; my $selector = IO::Select->new($cmd_out, $cmd_err); while (my @ready = $selector->can_read) { foreach my $fh (@ready) { |