return if open3 fails

1 files changed, 1 insertions, 1 deletions

diff --git a/draklive b/draklive
index 6cb0bb2..1c17d5c 100755
--- a/draklive
+++ b/draklive
@@ -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) {