From 107b1cbeace77c78d4885c138ca57d373a125bdf Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 12 Aug 1999 12:35:37 +0000
Subject: no_comment

---
 perl-install/run_program.pm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'perl-install/run_program.pm')

diff --git a/perl-install/run_program.pm b/perl-install/run_program.pm
index 2973a57cc..54887f882 100644
--- a/perl-install/run_program.pm
+++ b/perl-install/run_program.pm
@@ -25,6 +25,9 @@ sub rooted($$@) {
 	$root and chroot $root;
 	chdir "/";
 
-	exec $name, @args or log::l("exec of $name failed: $!"), exec('false') || exit(1);
+	unless (exec $name, @args) {
+	    log::l("exec of $name failed: $!");
+	    exec('false') or exit(1);
+	}
     }
 }
-- 
cgit v1.2.1