summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-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;