projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Remove some duplication of C flags
[ghc-hetmet.git]
/
darcs-all
diff --git
a/darcs-all
b/darcs-all
index
9eee3c6
..
b4ba47e
100644
(file)
--- a/
darcs-all
+++ b/
darcs-all
@@
-157,6
+157,7
@@
sub darcsall {
my $tag;
my @repos;
my $command = $_[0];
my $tag;
my @repos;
my $command = $_[0];
+ my $line;
my ($repo_base, $checked_out_tree) = getrepo();
my ($repo_base, $checked_out_tree) = getrepo();
@@
-164,9
+165,11
@@
sub darcsall {
@repos = <IN>;
close IN;
@repos = <IN>;
close IN;
+ $line = 0;
foreach (@repos) {
chomp;
foreach (@repos) {
chomp;
- if (/^([^# ]+) +([^ ]+) +([^ ]+) +([^ ]+)$/) {
+ $line++;
+ if (/^([^# ]+) +([^ ]+) +([^ ]+) +([^ ]+) +([^ ]+)$/) {
$localpath = $1;
$tag = $2;
$remotepath = $3;
$localpath = $1;
$tag = $2;
$remotepath = $3;
@@
-198,7
+201,7
@@
sub darcsall {
}
}
elsif (! /^(#.*)?$/) {
}
}
elsif (! /^(#.*)?$/) {
- die "Bad line: $_";
+ die "Bad content on line $line of packages file: $_";
}
}
}
}
}
}
@@
-210,6
+213,7
@@
sub darcsget {
my $path;
my $tag;
my @repos;
my $path;
my $tag;
my @repos;
+ my $line;
my ($repo_base, $checked_out_tree) = getrepo();
my ($repo_base, $checked_out_tree) = getrepo();
@@
-225,9
+229,11
@@
sub darcsget {
@repos = <IN>;
close IN;
@repos = <IN>;
close IN;
+ $line = 0;
foreach (@repos) {
chomp;
foreach (@repos) {
chomp;
- if (/^([^ ]+) +([^ ]+) +([^ ]+) +([^ ]+)$/) {
+ $line++;
+ if (/^([^ ]+) +([^ ]+) +([^ ]+) +([^ ]+) +([^ ]+)$/) {
$localpath = $1;
$tag = $2;
$remotepath = $3;
$localpath = $1;
$tag = $2;
$remotepath = $3;
@@
-249,7
+255,7
@@
sub darcsget {
}
}
elsif (! /^(#.*)?$/) {
}
}
elsif (! /^(#.*)?$/) {
- die "Bad line: $_";
+ die "Bad content on line $line of packages file: $_";
}
}
}
}
}
}