Commit ebaa8c99 authored by Simon Marlow's avatar Simon Marlow

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

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