# 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;
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");
}
* fetch
* send
* set-origin
+ * set-push
* new
Available package-tags are: