projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Merge branch 'master' of http://darcs.haskell.org/ghc
[ghc-hetmet.git]
/
sync-all
diff --git
a/sync-all
b/sync-all
index
37f2d81
..
9b0706e
100755
(executable)
--- 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'.
# 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;
my $defaultrepo;
my @packages;
my $verbose = 2;
@@
-297,6
+299,10
@@
sub scmall {
elsif ($command =~ /^set-origin$/) {
@scm_args = ("remote", "set-url", "origin", $path);
}
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");
}
elsif ($command =~ /^fetch$/) {
@scm_args = ("fetch", "origin");
}
@@
-398,6
+404,7
@@
Supported commands:
* fetch
* send
* set-origin
* fetch
* send
* set-origin
+ * set-push
* new
Available package-tags are:
* new
Available package-tags are: