From 08487a418aa40f0ed1b1c3dd098022556f315af4 Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Fri, 19 Jul 2002 13:37:04 +0000
Subject: added what_provides.

---
 perl-install/install_any.pm | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'perl-install/install_any.pm')

diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index 0196e293a..6c9eae5c3 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -1163,6 +1163,11 @@ sub install {
     $do->{o}->pkg_install(@l);
 }
 
+sub what_provides {
+    my ($do, $name) = @;
+    map { $do->{o}{packages}{depslist}[$_]->name } keys %{$do->{o}{packages}{provides}{$name} || {}};
+}
+
 sub is_installed {
     my ($do, @l) = @_;
     foreach (@l) {
-- 
cgit v1.2.1