From cf698f96f53513e13f8d9e2e4b62ba23c6ef090b Mon Sep 17 00:00:00 2001
From: Olivier Blin <oblin@mandriva.com>
Date: Thu, 6 Mar 2008 17:21:57 +0000
Subject: return if open3 fails

---
 draklive | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'draklive')

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) {
-- 
cgit v1.2.1