|
|
@ -123,7 +123,7 @@ foreach my $mirror (@ARGV) {
|
|
|
|
if ($mirror =~ /^\@SF\/(.+)$/) {
|
|
|
|
if ($mirror =~ /^\@SF\/(.+)$/) {
|
|
|
|
# give sourceforge a few more tries, because it redirects to different mirrors
|
|
|
|
# give sourceforge a few more tries, because it redirects to different mirrors
|
|
|
|
for (1 .. 5) {
|
|
|
|
for (1 .. 5) {
|
|
|
|
push @mirrors, "http://downloads.sourceforge.net/$1";
|
|
|
|
push @mirrors, "http://downloads.sourceforge.net/project/$1";
|
|
|
|
}
|
|
|
|
}
|
|
|
|
} elsif ($mirror =~ /^\@GNU\/(.+)$/) {
|
|
|
|
} elsif ($mirror =~ /^\@GNU\/(.+)$/) {
|
|
|
|
push @mirrors, "ftp://ftp.gnu.org/gnu/$1";
|
|
|
|
push @mirrors, "ftp://ftp.gnu.org/gnu/$1";
|
|
|
|