From 3696f48a27e11ca753ce68fce0831b1b94600a8f Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 7 Jan 2004 16:39:05 +0000
Subject: use whereis_binary()

---
 perl-install/install_any.pm | 5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)

(limited to 'perl-install/install_any.pm')

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;
 
-- 
cgit v1.2.1