From 9363a72ed0e96b72bc3906465ba078b554bd6529 Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Fri, 19 Jul 2002 13:44:54 +0000
Subject: added what_provides.

---
 perl-install/standalone.pm | 6 ++++++
 1 file changed, 6 insertions(+)

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

diff --git a/perl-install/standalone.pm b/perl-install/standalone.pm
index 40405c156..0fde47682 100644
--- a/perl-install/standalone.pm
+++ b/perl-install/standalone.pm
@@ -30,6 +30,12 @@ sub install {
     $ret;
 }
 
+sub what_provides {
+    my ($o, $name) = @;
+    my ($what) = split '\n', `urpmq '$name' 2>/dev/null`;
+    split '\|', $what;
+}
+
 sub is_installed {
     my ($o, @l) = @_;
     system('rpm', '-q', @l) == 0;
-- 
cgit v1.2.1