summaryrefslogtreecommitdiffstats
path: root/perl-install/run_program.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2001-04-11 11:48:32 +0000
committerPascal Rigaux <pixel@mandriva.com>2001-04-11 11:48:32 +0000
commitc7aff578a48e4306930908e9c8e340c5ca12ddab (patch)
treeea9f709f83bebd098d460bb8c850f52792f87018 /perl-install/run_program.pm
parent15fc94b58a854afb7fc410f47aa6841ea4566b18 (diff)
downloaddrakx-backup-do-not-use-c7aff578a48e4306930908e9c8e340c5ca12ddab.tar
drakx-backup-do-not-use-c7aff578a48e4306930908e9c8e340c5ca12ddab.tar.gz
drakx-backup-do-not-use-c7aff578a48e4306930908e9c8e340c5ca12ddab.tar.bz2
drakx-backup-do-not-use-c7aff578a48e4306930908e9c8e340c5ca12ddab.tar.xz
drakx-backup-do-not-use-c7aff578a48e4306930908e9c8e340c5ca12ddab.zip
(rooted): don't call install_any::check_prog if rooted
Diffstat (limited to 'perl-install/run_program.pm')
-rw-r--r--perl-install/run_program.pm2
1 files changed, 1 insertions, 1 deletions
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;