1
0
mirror of https://github.com/openSUSE/osc.git synced 2025-02-03 18:16:17 +01:00
This commit is contained in:
Jürgen Weigert 2008-03-26 19:24:05 +00:00
parent 8c3df896bf
commit 06603f3fcb

View File

@ -143,7 +143,7 @@ to retrieve the original specfile behind a link.
my $file_re = "\Q$file\E"; $file_re =~ s{\\\*}{\.\*}g;
my @match = grep { $_ =~ m{^$file_re$} } @list;
die "pattern $file not found in\n @list\n" unless @match;
$file = @match[0];
$file = $match[0];
}
$url .= "/$file";