download.pl: cope with potential two-digit linux versions

SVN-Revision: 27376
This commit is contained in:
Jo-Philipp Wich 2011-07-03 15:00:24 +00:00
parent 3d9f6f3d35
commit 0649dfdfb6

View file

@ -136,9 +136,9 @@ foreach my $mirror (@ARGV) {
push @mirrors, "ftp://ftp.digex.net/pub/gnu/$1"; push @mirrors, "ftp://ftp.digex.net/pub/gnu/$1";
} elsif ($mirror =~ /^\@KERNEL\/(.+)$/) { } elsif ($mirror =~ /^\@KERNEL\/(.+)$/) {
my @extra = ( $1 ); my @extra = ( $1 );
if ($filename =~ /linux-\d+\.\d+\.\d+-rc/) { if ($filename =~ /linux-\d+\.\d+(?:\.\d+)?-rc/) {
push @extra, "$extra[0]/testing"; push @extra, "$extra[0]/testing";
} elsif ($filename =~ /linux-(\d+\.\d+\.\d+)/) { } elsif ($filename =~ /linux-(\d+\.\d+(?:\.\d+)?)/) {
push @extra, "$extra[0]/longterm/v$1"; push @extra, "$extra[0]/longterm/v$1";
} }
foreach my $dir (@extra) { foreach my $dir (@extra) {