From f9f67da951cddf7554ab10fafe11f71fbd1b66e9 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 9 Sep 2004 02:44:38 +0000
Subject: remove redundant code

---
 perl-install/run_program.pm | 19 ++++++++-----------
 1 file changed, 8 insertions(+), 11 deletions(-)

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

diff --git a/perl-install/run_program.pm b/perl-install/run_program.pm
index 5bfd0352a..c237d7214 100644
--- a/perl-install/run_program.pm
+++ b/perl-install/run_program.pm
@@ -120,17 +120,14 @@ sub raw {
 	$root and chroot $root;
 	chdir "/";
 
-	if (ref $name) {
-	    unless (exec { $name->[0] } $name->[1], @args) {
-		log::l("exec of $name->[0] failed: $!");
-		c::_exit(128);
-	    }
-	} else {
-	    unless (exec $name, @args) {
-		log::l("exec of $name failed: $!");
-		c::_exit(128);
-	    }
-
+	my $ok = ref $name ? do {
+	    exec { $name->[0] } $name->[1], @args;
+	} : do {
+	    exec $name, @args;
+	};
+	if (!$ok) {
+	    log::l("exec of $str failed: $!");
+	    c::_exit(128);
 	}
     }
 
-- 
cgit v1.2.1