Signed-off-by: Kay Sievers <kay.sievers@suse.de>
@ -912,9 +912,13 @@ sub read_info_ref {
open my $fd, "$projectroot/$project/info/refs" or return;
while (my $line = <$fd>) {
if ($line =~ m/^([0-9a-fA-F]{40})\t.*\/([^\^]+)/) {
if (defined $refs{$1}) {
$refs{$1} .= " / $2";
} else {
$refs{$1} = $2;
}
close $fd or return;
return \%refs;