Signed-off-by: Kay Sievers <kay.sievers@suse.de>
This commit is contained in:
Kay Sievers 2005-12-07 10:12:55 +01:00
Родитель 4cdd1f9031
Коммит 045e531a8f
1 изменённых файлов: 5 добавлений и 1 удалений

Просмотреть файл

@ -912,7 +912,11 @@ 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.*\/([^\^]+)/) {
$refs{$1} = $2;
if (defined $refs{$1}) {
$refs{$1} .= " / $2";
} else {
$refs{$1} = $2;
}
}
}
close $fd or return;