my $tag;
my @repos;
my $command = $_[0];
+ my $line;
my ($repo_base, $checked_out_tree) = getrepo();
@repos = <IN>;
close IN;
+ $line = 0;
foreach (@repos) {
chomp;
+ $line++;
if (/^([^# ]+) +([^ ]+) +([^ ]+) +([^ ]+) +([^ ]+)$/) {
$localpath = $1;
$tag = $2;
}
}
elsif (! /^(#.*)?$/) {
- die "Bad line: $_";
+ die "Bad content on line $line of packages file: $_";
}
}
}
my $path;
my $tag;
my @repos;
+ my $line;
my ($repo_base, $checked_out_tree) = getrepo();
@repos = <IN>;
close IN;
+ $line = 0;
foreach (@repos) {
chomp;
+ $line++;
if (/^([^ ]+) +([^ ]+) +([^ ]+) +([^ ]+) +([^ ]+)$/) {
$localpath = $1;
$tag = $2;
}
}
elsif (! /^(#.*)?$/) {
- die "Bad line: $_";
+ die "Bad content on line $line of packages file: $_";
}
}
}