From 15fc94b58a854afb7fc410f47aa6841ea4566b18 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Wed, 11 Apr 2001 11:48:29 +0000 Subject: (check_prog): make it work --- perl-install/install_any.pm | 17 ++++++++++------- 1 file changed, 10 insertions(+), 7 deletions(-) diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm index a7e7fd43f..793f7dfe6 100644 --- a/perl-install/install_any.pm +++ b/perl-install/install_any.pm @@ -891,24 +891,27 @@ my @bigseldom_used_groups = ( ); sub check_prog { - my ($f, $prefix) = @_; + my ($f) = @_; my @l = $f !~ m|^/| ? map { "$_/$f" } split(":", $ENV{PATH}) : $f; - return if grep { -x "$prefix$_" } @l; + return if grep { -x $_ } @l; - #remove_bigseldom_used(); + my ($f_) = map { m|^/| ? $_ : "/usr/bin/$_" } $f; + remove_bigseldom_used(); foreach (@bigseldom_used_groups) { - my ($f_, @l) = map { m|^/| ? $_ : "/usr/bin/$_" } $f, @$_; + my (@l) = map { m|^/| ? $_ : "/usr/bin/$_" } @$_; if (member($f_, @l)) { foreach (@l) { - getAndSaveFile("Mandrake/mdkinst$_", "$prefix$_"); - chmod 0755, "$prefix$_"; + getAndSaveFile($_); + chmod 0755, $_; } - last; + return; } } + getAndSaveFile($f_); + chmod 0755, $f_; } sub remove_bigseldom_used { -- cgit v1.2.1