diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2004-01-07 16:39:05 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2004-01-07 16:39:05 +0000 |
| commit | 3696f48a27e11ca753ce68fce0831b1b94600a8f (patch) | |
| tree | 320e4f51fae8a730b7a4314d80f599ee4af5d93a | |
| parent | 0bc655c8b88c9a2c92db66dc8b259c56ec53ee49 (diff) | |
| download | drakx-3696f48a27e11ca753ce68fce0831b1b94600a8f.tar drakx-3696f48a27e11ca753ce68fce0831b1b94600a8f.tar.gz drakx-3696f48a27e11ca753ce68fce0831b1b94600a8f.tar.bz2 drakx-3696f48a27e11ca753ce68fce0831b1b94600a8f.tar.xz drakx-3696f48a27e11ca753ce68fce0831b1b94600a8f.zip | |
use whereis_binary()
| -rw-r--r-- | perl-install/install_any.pm | 5 |
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; |