summaryrefslogtreecommitdiffstats
path: root/perl-install/pkgs.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/pkgs.pm')
-rw-r--r--perl-install/pkgs.pm9
1 files changed, 5 insertions, 4 deletions
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;
}