summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>2002-07-19 13:37:04 +0000
committerFrancois Pons <fpons@mandriva.com>2002-07-19 13:37:04 +0000
commit08487a418aa40f0ed1b1c3dd098022556f315af4 (patch)
treed06d9ae91e002badc61bef21bed85dca00ee01a5
parent8df7430b9c2e33508b08c91ca25b092a0117f867 (diff)
downloaddrakx-backup-do-not-use-08487a418aa40f0ed1b1c3dd098022556f315af4.tar
drakx-backup-do-not-use-08487a418aa40f0ed1b1c3dd098022556f315af4.tar.gz
drakx-backup-do-not-use-08487a418aa40f0ed1b1c3dd098022556f315af4.tar.bz2
drakx-backup-do-not-use-08487a418aa40f0ed1b1c3dd098022556f315af4.tar.xz
drakx-backup-do-not-use-08487a418aa40f0ed1b1c3dd098022556f315af4.zip
added what_provides.
-rw-r--r--perl-install/install_any.pm5
1 files changed, 5 insertions, 0 deletions
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) {