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

Make "./darcs-all optimize --relink" do the right thing

parent a35d65c3
...@@ -125,6 +125,7 @@ sub darcsall { ...@@ -125,6 +125,7 @@ sub darcsall {
my $path; my $path;
my $tag; my $tag;
my @repos; my @repos;
my $command = $_[0];
my ($repo_base, $checked_out_tree) = getrepo(); my ($repo_base, $checked_out_tree) = getrepo();
...@@ -148,7 +149,12 @@ sub darcsall { ...@@ -148,7 +149,12 @@ sub darcsall {
if (-d "$localpath/_darcs") { if (-d "$localpath/_darcs") {
if ($want_remote_repo) { if ($want_remote_repo) {
darcs (@_, "--repodir", $localpath, $path); if ($command =~ /^opt/) {
# Allows ./darcs-all optimize --relink
darcs (@_, "--repodir", $localpath, "--sibling=$path");
} else {
darcs (@_, "--repodir", $localpath, $path);
}
} else { } else {
darcs (@_, "--repodir", $localpath); darcs (@_, "--repodir", $localpath);
} }
...@@ -272,7 +278,7 @@ sub main { ...@@ -272,7 +278,7 @@ sub main {
# Hack around whatsnew failing if there are no changes # Hack around whatsnew failing if there are no changes
$ignore_failure = 1; $ignore_failure = 1;
} }
if ($command =~ /^(pul|pus|sen|put)/) { if ($command =~ /^(pul|pus|sen|put|opt)/) {
$want_remote_repo = 1; $want_remote_repo = 1;
} }
darcsall @_; darcsall @_;
......
Supports Markdown
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