my $remotepath;
my $path;
my $tag;
+ my @repos;
open IN, "< packages" or die "Can't open packages file";
- while (<IN>) {
+ @repos = <IN>;
+ close IN;
+
+ foreach (@repos) {
chomp;
if (/^([^# ]+) +(?:([^ ]+) +)?([^ ]+) +([^ ]+)$/) {
$localpath = $1;
die "Bad line: $_";
}
}
- close IN;
}
sub main {