- handle promotion via obsolete, not only provides

1 files changed, 6 insertions, 0 deletions

diff --git a/URPM.pm b/URPM.pm
index e2bf32a..11629f9 100644
--- a/URPM.pm
+++ b/URPM.pm
@@ -19,6 +19,7 @@ sub new {
     my $self = bless {
 	depslist => [],
 	provides => {},
+	obsoletes => {},
     }, $class;
     $self->{nofatal} = 1 if $options{nofatal};
     $self;
@@ -31,6 +32,11 @@ sub packages_providing {
     map { $urpm->{depslist}[$_] } keys %{$urpm->{provides}{$name} || {}};
 }
 
+sub packages_obsoleting {
+    my ($urpm, $name) = @_;
+    map { $urpm->{depslist}[$_] } keys %{$urpm->{obsoletes}{$name} || {}};
+}
+
 sub packages_by_name {
     my ($urpm, $name) = @_;
     grep { $name eq $_->name } packages_providing($urpm, $name);