Commit d9718410 authored by Simon Marlow's avatar Simon Marlow
Browse files

fix 'darcs-all rec' (amongst other things)

parent 87787d75
......@@ -26,6 +26,7 @@ my $defaultrepo;
my $verbose = 2;
my $ignore_failure = 0;
my $want_remote_repo = 0;
my %tags;
......@@ -114,17 +115,15 @@ sub darcsall {
$path = "$repo_base/$localpath";
}
else {
if ($remotepath =~ /^http:/) {
message "Ignoring $localpath; remote is http URL";
next REPO;
}
else {
$path = "$repo_base/$remotepath";
}
$path = "$repo_base/$remotepath";
}
if (-d "$localpath/_darcs") {
darcs (@_, "--repodir", $localpath, $path);
if ($want_remote_repo) {
darcs (@_, "--repodir", $localpath, $path);
} else {
darcs (@_, "--repodir", $localpath);
}
}
elsif ($tag eq "") {
message "== Required repo $localpath is missing! Skipping";
......@@ -172,12 +171,7 @@ sub darcsget {
$path = "$repo_base/$localpath";
}
else {
if ($remotepath =~ /^http:/) {
$path = $remotepath;
}
else {
$path = "$repo_base/$remotepath";
}
$path = "$repo_base/$remotepath";
}
if (($tag eq "") || defined($tags{$tag})) {
......@@ -247,6 +241,9 @@ sub main {
# Hack around whatsnew failing if there are no changes
$ignore_failure = 1;
}
if ($command =~ /^(pul|pus|sen|put)/) {
$want_remote_repo = 1;
}
darcsall @_;
}
}
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment