summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>2000-12-08 13:00:39 +0000
committerFrancois Pons <fpons@mandriva.com>2000-12-08 13:00:39 +0000
commit0361d0c2f75058b7fa949eec1880997131a912b9 (patch)
treea90a5df49b568d56482950a1f4ce8de8c17b855c /perl-install
parentb4750293eba55736f88fc0ad216c72a7df6500c2 (diff)
downloaddrakx-0361d0c2f75058b7fa949eec1880997131a912b9.tar
drakx-0361d0c2f75058b7fa949eec1880997131a912b9.tar.gz
drakx-0361d0c2f75058b7fa949eec1880997131a912b9.tar.bz2
drakx-0361d0c2f75058b7fa949eec1880997131a912b9.tar.xz
drakx-0361d0c2f75058b7fa949eec1880997131a912b9.zip
fixed bug in list of packages provided by another one.
Diffstat (limited to 'perl-install')
-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;
}