1
0
mirror of https://github.com/openSUSE/osc.git synced 2025-02-13 22:07:18 +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 $file_re = "\Q$file\E"; $file_re =~ s{\\\*}{\.\*}g;
my @match = grep { $_ =~ m{^$file_re$} } @list; my @match = grep { $_ =~ m{^$file_re$} } @list;
die "pattern $file not found in\n @list\n" unless @match; die "pattern $file not found in\n @list\n" unless @match;
$file = @match[0]; $file = $match[0];
} }
$url .= "/$file"; $url .= "/$file";