diff options
| -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; |