make "./sync-all -r <path> remote set-url origin" work

ghc · Jan 7, 2013 · 7d1216a · 7d1216a
1 parent 4da767e
commit 7d1216a
Showing 1 changed file with 8 additions and 2 deletions.
diff --git a/sync-all b/sync-all
@@ -417,15 +417,21 @@ sub scmall {
         }
         elsif ($command eq "remote") {
             my @scm_args;
+            my $rpath;
             $ignore_failure = 1;
+            if ($remotepath eq '-') {
+                $rpath = "$repo_base/$localpath";
+            } else {
+                $rpath = $path;
+            }
             if ($subcommand eq 'add') {
-                @scm_args = ("remote", "add", $branch_name, $path);
+                @scm_args = ("remote", "add", $branch_name, $rpath);
             } elsif ($subcommand eq 'rm') {
                 @scm_args = ("remote", "rm", $branch_name);
             } elsif ($subcommand eq 'set-branches') {
                 @scm_args = ("remote", "set-branches", $branch_name);
             } elsif ($subcommand eq 'set-url') {
-                @scm_args = ("remote", "set-url", $branch_name, $path);
+                @scm_args = ("remote", "set-url", $branch_name, $rpath);
             }
             scm ($localpath, $scm, @scm_args, @args);
         }