projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Stop dph/dph-{par,seq} reconfiguring themselves all the time
[ghc-hetmet.git]
/
push-all
diff --git
a/push-all
b/push-all
index
d4491cf
..
ed825fc
100644
(file)
--- a/
push-all
+++ b/
push-all
@@
-39,13
+39,11
@@
sub pushall {
my $remotepath;
my $path;
my $tag;
my $remotepath;
my $path;
my $tag;
- my $ghcrepo = $checked_out ? $reporoot : "$reporoot/ghc";
- darcs_push ($ghcrepo, @_);
-
+
open IN, "< packages" or die "Can't open packages file";
while (<IN>) {
chomp;
open IN, "< packages" or die "Can't open packages file";
while (<IN>) {
chomp;
- if (/^([^ ]+) +(?:([^ ]+) +)?([^ ]+)/) {
+ if (/^([^# ]+) +(?:([^ ]+) +)?([^ ]+) +([^ ]+)$/) {
$localpath = $1;
$tag = defined($2) ? $2 : "";
$remotepath = $3;
$localpath = $1;
$tag = defined($2) ? $2 : "";
$remotepath = $3;
@@
-67,6
+65,9
@@
sub pushall {
message "== $localpath repo not present; skipping";
}
}
message "== $localpath repo not present; skipping";
}
}
+ elsif (! /^(#.*)?$/) {
+ die "Bad line: $_";
+ }
}
close IN;
}
}
close IN;
}