From c7aff578a48e4306930908e9c8e340c5ca12ddab Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 11 Apr 2001 11:48:32 +0000
Subject: (rooted): don't call install_any::check_prog if rooted

---
 perl-install/run_program.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'perl-install')

diff --git a/perl-install/run_program.pm b/perl-install/run_program.pm
index 2eb9e8a6f..a0a966efa 100644
--- a/perl-install/run_program.pm
+++ b/perl-install/run_program.pm
@@ -25,7 +25,7 @@ sub rooted {
     return 1 if $root && $<;
 
     $root ? $root .= '/' : ($root = '');
-    install_any::check_prog (ref $name ? $name->[0] : $name, $root) if $::isInstall;
+    install_any::check_prog (ref $name ? $name->[0] : $name) if !$root && $::isInstall;
 
     if (my $pid = fork) {
 	waitpid $pid, 0;
-- 
cgit v1.2.1