add whereis_binary()

(needed in upcoming should_we_migrate_back_rpmdb_db_version())

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) = @_;