From 4cba641cb3e29c7712f6137c21abda0827b74e56 Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Thu, 8 Mar 2001 17:15:09 +0000
Subject: *** empty log message ***

---
 rpmtools.pm | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

(limited to 'rpmtools.pm')

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 {
-- 
cgit v1.2.1