diff options
| -rw-r--r-- | urpm/sys.pm | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/urpm/sys.pm b/urpm/sys.pm index 631c7016..2e36a273 100644 --- a/urpm/sys.pm +++ b/urpm/sys.pm @@ -108,6 +108,19 @@ sub _expand_symlink { $pdir; } +sub whereis_binary { + my ($prog, $o_prefix) = @_; + if ($prog =~ m!/!) { + warn qq(don't call whereis_binary with a name containing a "/" (the culprit is: $prog)\n); + return; + } + my $prefix = $o_prefix || ''; + foreach (split(':', $ENV{PATH})) { + my $f = "$_/$prog"; + -x "$prefix$f" and return $f; + } +} + sub may_clean_rpmdb_shared_regions { my ($urpm, $test) = @_; |