@ARGV > 0 or die "Syntax: $0 <target dir> <filename> <md5sum> <mirror> [<mirror> ...]\n";
sub localmirrors {
-
my @mlist;
- open LM, "$scriptdir/localmirrors" or return "";
- while (<LM>) {
- chomp $_;
- push @mlist, $_;
- }
+ open LM, "$scriptdir/localmirrors" and do {
+ while (<LM>) {
+ chomp $_;
+ push @mlist, $_;
+ }
+ close LM;
+ };
+ open CONFIG, "<".$ENV{'TOPDIR'}."/.config" and do {
+ while (<CONFIG>) {
+ /^CONFIG_LOCALMIRROR="(.+)"/ and do {
+ chomp;
+ push @mlist, $1;
+ };
+ }
+ close CONFIG;
+ };
+
return @mlist;
}