From 0361d0c2f75058b7fa949eec1880997131a912b9 Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Fri, 8 Dec 2000 13:00:39 +0000
Subject: fixed bug in list of packages provided by another one.

---
 perl-install/pkgs.pm | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

(limited to 'perl-install')

diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm
index 8e5e62afd..42c7e3cd9 100644
--- a/perl-install/pkgs.pm
+++ b/perl-install/pkgs.pm
@@ -636,10 +636,11 @@ sub getProvides($) {
     #- packages can be managed by DrakX (currently about 2000).
     my $i = 0;
     foreach my $pkg (@{$packages->{depslist}}) {
-	packageFlagBase($pkg) and next;
-	foreach (map { split '\|' } grep { !/^NOTFOUND_/ } packageDepsId($pkg)) {
-	    my $provided = $packages->{depslist}[$_] or die "invalid package index $_";
-	    packageFlagBase($provided) or $provided->[$PROVIDES] = pack "s*", (unpack "s*", $provided->[$PROVIDES]), $i;
+	unless (packageFlagBase($pkg)) {
+	    foreach (map { split '\|' } grep { !/^NOTFOUND_/ } packageDepsId($pkg)) {
+		my $provided = $packages->{depslist}[$_] or die "invalid package index $_";
+		packageFlagBase($provided) or $provided->[$PROVIDES] = pack "s*", (unpack "s*", $provided->[$PROVIDES]), $i;
+	    }
 	}
 	++$i;
     }
-- 
cgit v1.2.1