X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=sync-all;h=685c3b628405001ac8c3c30d3a9fb03be2c0e066;hb=3a50b1f6cb7d4455c0df851b213a51e67bb16c7f;hp=37f2d813a9e94f8c756df8be1a635228d47a5547;hpb=93e7418f729b6f4329d7436efd7108066ca76925;p=ghc-hetmet.git

diff --git a/sync-all b/sync-all
index 37f2d81..685c3b6 100755
--- a/sync-all
+++ b/sync-all
@@ -59,6 +59,8 @@ use Cwd;
 # root one.  So the remote repos must be laid out in one of the two
 # formats given by <local-path> and <remote-path> in the file 'packages'.
 
+$| = 1; # autoflush stdout after each print, to avoid output after die
+
 my $defaultrepo;
 my @packages;
 my $verbose = 2;
@@ -273,7 +275,7 @@ sub scmall {
                 }
                 
                 # The first time round the loop, default the get-mode
-                if (not defined($get_mode)) {
+                if ($scm eq "darcs" && not defined($get_mode)) {
                     warning("adding --partial, to override use --complete");
                     $get_mode = "--partial";
                 }
@@ -297,6 +299,10 @@ sub scmall {
             elsif ($command =~ /^set-origin$/) {
                 @scm_args = ("remote", "set-url", "origin", $path);
             }
+            elsif ($command =~ /^set-push$/) {
+                @scm_args = ("remote", "set-url", "--push", "origin", $path);
+                print "foo\n", @scm_args;
+            }
             elsif ($command =~ /^fetch$/) {
                 @scm_args = ("fetch", "origin");
             }
@@ -398,6 +404,7 @@ Supported commands:
  * fetch
  * send
  * set-origin
+ * set-push
  * new
 
 Available package-tags are: