my $verbose = 2;
my $ignore_failure = 0;
+my $want_remote_repo = 0;
my %tags;
$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";
$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})) {
# Hack around whatsnew failing if there are no changes
$ignore_failure = 1;
}
+ if ($command =~ /^(pul|pus|sen|put)/) {
+ $want_remote_repo = 1;
+ }
darcsall @_;
}
}