projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Read the packages file in strictly in darcs-all and push-all
[ghc-hetmet.git]
/
darcs-all
diff --git
a/darcs-all
b/darcs-all
index
6c8b406
..
483cd9d
100644
(file)
--- a/
darcs-all
+++ b/
darcs-all
@@
-55,9
+55,13
@@
sub darcsall {
my $localpath;
my $path;
my $tag;
my $localpath;
my $path;
my $tag;
+ my @repos;
open IN, "< packages" or die "Can't open packages file";
open IN, "< packages" or die "Can't open packages file";
- while (<IN>) {
+ @repos = <IN>;
+ close IN;
+
+ foreach (@repos) {
chomp;
if (/^([^# ]+) +(?:([^ ]+) +)?([^ ]+) +([^ ]+)$/) {
$localpath = $1;
chomp;
if (/^([^# ]+) +(?:([^ ]+) +)?([^ ]+) +([^ ]+)$/) {
$localpath = $1;
@@
-77,7
+81,6
@@
sub darcsall {
die "Bad line: $_";
}
}
die "Bad line: $_";
}
}
- close IN;
}
sub darcsget {
}
sub darcsget {
@@
-86,6
+89,7
@@
sub darcsget {
my $remotepath;
my $path;
my $tag;
my $remotepath;
my $path;
my $tag;
+ my @repos;
if (! grep /(?:--complete|--partial)/, @_) {
warning("adding --partial, to override use --complete");
if (! grep /(?:--complete|--partial)/, @_) {
warning("adding --partial, to override use --complete");
@@
-96,7
+100,10
@@
sub darcsget {
}
open IN, "< packages" or die "Can't open packages file";
}
open IN, "< packages" or die "Can't open packages file";
- while (<IN>) {
+ @repos = <IN>;
+ close IN;
+
+ foreach (@repos) {
chomp;
if (/^([^ ]+) +(?:([^ ]+) +)?([^ ]+) +([^ ]+)$/) {
$localpath = $1;
chomp;
if (/^([^ ]+) +(?:([^ ]+) +)?([^ ]+) +([^ ]+)$/) {
$localpath = $1;
@@
-123,7
+130,6
@@
sub darcsget {
die "Bad line: $_";
}
}
die "Bad line: $_";
}
}
- close IN;
}
sub main {
}
sub main {