From 0aa7a9e98c3b51085c87aa13d61eef8e3f694626 Mon Sep 17 00:00:00 2001
From: pad <pad@mandriva.com>
Date: Tue, 14 Sep 1999 14:50:50 +0000
Subject: *** empty log message ***

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

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

diff --git a/perl-install/run_program.pm b/perl-install/run_program.pm
index 15394a1be..617c6ebd5 100644
--- a/perl-install/run_program.pm
+++ b/perl-install/run_program.pm
@@ -11,8 +11,8 @@ sub run($@) { rooted('', @_) }
 
 sub rooted {
     my ($root, $name, @args) = @_;
-
-    log::l("running: $name @args" . ($root ? " with root $root" : ""));
+    my $str = ref $name ? $name->[0] : $name;
+    log::l("running: $str @args" . ($root ? " with root $root" : ""));
     $root ? $root .= '/' : ($root = '');
 
     fork and wait, return $? == 0;
@@ -25,9 +25,18 @@ sub rooted {
 	$root and chroot $root;
 	chdir "/";
 
-	unless (exec $name, @args) {
-	    log::l("exec of $name failed: $!");
-	    exec('false') or exit(1);
+	if (ref $name) {
+	    unless (exec { $name->[0] } $name->[1], @args) {
+		log::l("exec of $name->[0] failed: $!");
+		exec('false') or exit(1);
+	    }
+	} else {
+	    unless (exec $name, @args) {
+		log::l("exec of $name failed: $!");
+		exec('false') or exit(1);
+	    }
+
 	}
     }
+	
 }
-- 
cgit v1.2.1