Fix retrieval of source packages (e.g. urpmq --sources) with alternative

dependencies foo|bar (Pascal Terjan)

1 files changed, 7 insertions, 5 deletions

diff --git a/urpm.pm b/urpm.pm
index 93f830b2..3fe7523f 100644
--- a/urpm.pm
+++ b/urpm.pm
@@ -2311,11 +2311,13 @@ sub get_source_packages {
 
     #- build association hash to retrieve id and examine all list files.
     foreach (keys %$packages) {
-	my $p = $urpm->{depslist}[$_];
-	if ($urpm->{source}{$_}) {
-	    $protected_files{$local_sources{$_} = $urpm->{source}{$_}} = undef;
-	} else {
-	    $fullname2id{$p->fullname} = $_ . '';
+	foreach (split /\|/, $_) {
+	    if ($urpm->{source}{$_}) {
+		$protected_files{$local_sources{$_} = $urpm->{source}{$_}} = undef;
+	    } else {
+		my $p = $urpm->{depslist}[$_];
+		$fullname2id{$p->fullname} = $_ . '';
+	    }
 	}
     }