From 0361d0c2f75058b7fa949eec1880997131a912b9 Mon Sep 17 00:00:00 2001 From: Francois Pons 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