diff options
author | Francois Pons <fpons@mandriva.com> | 2001-03-08 17:15:09 +0000 |
---|---|---|
committer | Francois Pons <fpons@mandriva.com> | 2001-03-08 17:15:09 +0000 |
commit | 4cba641cb3e29c7712f6137c21abda0827b74e56 (patch) | |
tree | ef54f4d0516e2c14232bbec302bd73d8c2d51251 /rpmtools.pm | |
parent | a79b48256aca8870493d7e8e5a14dcde4865d361 (diff) | |
download | rpmtools-4cba641cb3e29c7712f6137c21abda0827b74e56.tar rpmtools-4cba641cb3e29c7712f6137c21abda0827b74e56.tar.gz rpmtools-4cba641cb3e29c7712f6137c21abda0827b74e56.tar.bz2 rpmtools-4cba641cb3e29c7712f6137c21abda0827b74e56.tar.xz rpmtools-4cba641cb3e29c7712f6137c21abda0827b74e56.zip |
*** empty log message ***
Diffstat (limited to 'rpmtools.pm')
-rw-r--r-- | rpmtools.pm | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/rpmtools.pm b/rpmtools.pm index dd33299..0194192 100644 --- a/rpmtools.pm +++ b/rpmtools.pm @@ -223,7 +223,7 @@ sub compute_depslist { foreach (@{$info->{requires} || []}) { unless (exists $requires{$_}) { $requires{$_} = undef; - push @requires, $_; + push @{ref $_ ? \@required_packages : \@requires}, $_; } } } @@ -314,7 +314,9 @@ sub compute_depslist { if (@choices_base_id) { ($id, $base) = ($choices_base_id[0], 1); } else { - push @requires_id, \@choices_id; + my $choices_key = join '|', @choices_id; + exists $requires_id{$choices_key} or push @requires_id, \@choices_id; + $requires_id{$choices_key} = undef; next; } } else { |