diff options
| author | Francois Pons <fpons@mandriva.com> | 2002-07-19 13:37:04 +0000 |
|---|---|---|
| committer | Francois Pons <fpons@mandriva.com> | 2002-07-19 13:37:04 +0000 |
| commit | 08487a418aa40f0ed1b1c3dd098022556f315af4 (patch) | |
| tree | d06d9ae91e002badc61bef21bed85dca00ee01a5 | |
| parent | 8df7430b9c2e33508b08c91ca25b092a0117f867 (diff) | |
| download | drakx-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.pm | 5 |
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) { |