diff options
author | Pascal Rigaux <pixel@mandriva.com> | 2001-04-11 11:48:32 +0000 |
---|---|---|
committer | Pascal Rigaux <pixel@mandriva.com> | 2001-04-11 11:48:32 +0000 |
commit | c7aff578a48e4306930908e9c8e340c5ca12ddab (patch) | |
tree | ea9f709f83bebd098d460bb8c850f52792f87018 | |
parent | 15fc94b58a854afb7fc410f47aa6841ea4566b18 (diff) | |
download | drakx-c7aff578a48e4306930908e9c8e340c5ca12ddab.tar drakx-c7aff578a48e4306930908e9c8e340c5ca12ddab.tar.gz drakx-c7aff578a48e4306930908e9c8e340c5ca12ddab.tar.bz2 drakx-c7aff578a48e4306930908e9c8e340c5ca12ddab.tar.xz drakx-c7aff578a48e4306930908e9c8e340c5ca12ddab.zip |
(rooted): don't call install_any::check_prog if rooted
-rw-r--r-- | perl-install/run_program.pm | 2 |
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; |