summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>2002-07-19 13:44:54 +0000
committerFrancois Pons <fpons@mandriva.com>2002-07-19 13:44:54 +0000
commit9363a72ed0e96b72bc3906465ba078b554bd6529 (patch)
tree2f4684b2a32eabbfafb66998881b137fdca2926b
parent08487a418aa40f0ed1b1c3dd098022556f315af4 (diff)
downloaddrakx-backup-do-not-use-9363a72ed0e96b72bc3906465ba078b554bd6529.tar
drakx-backup-do-not-use-9363a72ed0e96b72bc3906465ba078b554bd6529.tar.gz
drakx-backup-do-not-use-9363a72ed0e96b72bc3906465ba078b554bd6529.tar.bz2
drakx-backup-do-not-use-9363a72ed0e96b72bc3906465ba078b554bd6529.tar.xz
drakx-backup-do-not-use-9363a72ed0e96b72bc3906465ba078b554bd6529.zip
added what_provides.
-rw-r--r--perl-install/standalone.pm6
1 files changed, 6 insertions, 0 deletions
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;