From 0f9fc83390f96e0c740b13a8ba809b7ef64f542d Mon Sep 17 00:00:00 2001
From: Martin Whitaker <mageia@martin-whitaker.me.uk>
Date: Tue, 31 Jul 2018 23:16:41 +0100
Subject: drakclassic: filter out obsolete packages when calculating
 dependencies.

---
 lib/MGA/DrakISO/BuildMedia.pm | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)

(limited to 'lib')

diff --git a/lib/MGA/DrakISO/BuildMedia.pm b/lib/MGA/DrakISO/BuildMedia.pm
index b4479d9..81ce9c7 100644
--- a/lib/MGA/DrakISO/BuildMedia.pm
+++ b/lib/MGA/DrakISO/BuildMedia.pm
@@ -201,6 +201,7 @@ sub get_available_packages {
             $package{$name}{base_pkg} = $pkg;
         }
     });
+    
 }
 
 ###############################################################################
@@ -397,6 +398,7 @@ sub update_dependencies() {
             my @requires = $pkg->requires_nosense;
             $urpm->traverse_tag('whatprovides', \@requires, sub {
                 my ($pkg) = @_;
+                return if is_obsolete($urpm, $pkg);
                 my $name = $pkg->name;
                 # kernel and kmod packages embed the kernel version and release
                 # in the package name (and always have a version-release of 1-1)
@@ -430,6 +432,21 @@ sub update_dependencies() {
     report_package_count();
 }
 
+sub is_obsolete {
+    my ($urpm, $pkg) = @_;
+
+    # This is derived from URPM::Resolve::_find_packages_obsoleting(). The
+    # arch compatibility checks have been dropped, as we know we only have
+    # one arch in our urpmi database.
+    my @obsoleting_pakages = grep {
+        $_ && !$_->flag_skip
+           && $_->obsoletes_overlap($pkg->name . " == " . $pkg->epoch . ":" . $pkg->version . "-" . $pkg->release)
+           && $_->fullname ne $pkg->fullname;
+    } $urpm->packages_obsoleting($pkg->name);
+
+    @obsoleting_pakages > 0;
+}
+
 ###############################################################################
 # Installation Media Generation
 ###############################################################################
-- 
cgit v1.2.1