diff options
| author | Francois Pons <fpons@mandriva.com> | 2000-12-08 13:00:39 +0000 |
|---|---|---|
| committer | Francois Pons <fpons@mandriva.com> | 2000-12-08 13:00:39 +0000 |
| commit | 0361d0c2f75058b7fa949eec1880997131a912b9 (patch) | |
| tree | a90a5df49b568d56482950a1f4ce8de8c17b855c /perl-install | |
| parent | b4750293eba55736f88fc0ad216c72a7df6500c2 (diff) | |
| download | drakx-backup-do-not-use-0361d0c2f75058b7fa949eec1880997131a912b9.tar drakx-backup-do-not-use-0361d0c2f75058b7fa949eec1880997131a912b9.tar.gz drakx-backup-do-not-use-0361d0c2f75058b7fa949eec1880997131a912b9.tar.bz2 drakx-backup-do-not-use-0361d0c2f75058b7fa949eec1880997131a912b9.tar.xz drakx-backup-do-not-use-0361d0c2f75058b7fa949eec1880997131a912b9.zip | |
fixed bug in list of packages provided by another one.
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/pkgs.pm | 9 |
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; } |