summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2004-01-07 16:39:05 +0000
committerPascal Rigaux <pixel@mandriva.com>2004-01-07 16:39:05 +0000
commit3696f48a27e11ca753ce68fce0831b1b94600a8f (patch)
tree320e4f51fae8a730b7a4314d80f599ee4af5d93a
parent0bc655c8b88c9a2c92db66dc8b259c56ec53ee49 (diff)
downloaddrakx-backup-do-not-use-3696f48a27e11ca753ce68fce0831b1b94600a8f.tar
drakx-backup-do-not-use-3696f48a27e11ca753ce68fce0831b1b94600a8f.tar.gz
drakx-backup-do-not-use-3696f48a27e11ca753ce68fce0831b1b94600a8f.tar.bz2
drakx-backup-do-not-use-3696f48a27e11ca753ce68fce0831b1b94600a8f.tar.xz
drakx-backup-do-not-use-3696f48a27e11ca753ce68fce0831b1b94600a8f.zip
use whereis_binary()
-rw-r--r--perl-install/install_any.pm5
1 files changed, 1 insertions, 4 deletions
diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index 94b395104..5a0e355e8 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -1063,10 +1063,7 @@ my @bigseldom_used_groups = (
sub check_prog {
my ($f) = @_;
- my @l = $f !~ m|^/| ?
- map { "$_/$f" } split(":", $ENV{PATH}) :
- $f;
- return if any { -x $_ } @l;
+ return if $f =~ m|^/| ? -x $f : whereis_binary($f);
common::usingRamdisk() or log::l("ERROR: check_prog can't find the program $f and we're not using ramdisk"), return;