From 8193e28941e92205df8d1502594b1b030c8cc27b Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Mon, 15 Jul 2002 16:53:28 +0000
Subject: 0.10-1mdk

---
 URPM.pm | 18 +++++++++++++++++-
 1 file changed, 17 insertions(+), 1 deletion(-)

(limited to 'URPM.pm')

diff --git a/URPM.pm b/URPM.pm
index e9a0eb2..27187fa 100644
--- a/URPM.pm
+++ b/URPM.pm
@@ -6,7 +6,7 @@ use vars qw($VERSION @ISA);
 require DynaLoader;
 
 @ISA = qw(DynaLoader);
-$VERSION = '0.09';
+$VERSION = '0.10';
 
 bootstrap URPM $VERSION;
 
@@ -18,6 +18,22 @@ sub new {
 	  }, $class;
 }
 
+sub search {
+    my ($urpm, $name, %options) = @_;
+    my $best = undef;
+
+    foreach (keys %{$urpm->{provides}{$name} || {}}) {
+	my $pkg = $urpm->{depslist}[$_];
+	my ($n, $v, $r, $a) = $pkg->fullname;
+
+	$options{src} && $a eq 'src' || $pkg->is_arch_compat or next;
+	$n eq $name || !$options{strict} && ("$n-$v" eq $name || "$n-$v-$r" eq $name || "$n-$v-$r.$a" eq $name) or next;
+	!$best || $pkg->compare_pkg($best) > 0 and $best = $pkg;
+    }
+
+    $best;
+}
+
 sub traverse {
     my ($urpm, $callback) = @_;
 
-- 
cgit v1.2.1