wip push

[dgit.git] / dgit

diff --git a/dgit b/dgit
index f8795683056296d0bcda9c556085a601a2b0e3bb..12f7510033cbede7ee554e3106553da7636e2967 100755 (executable)
--- a/dgit
+++ b/dgit
@@ -294,6 +294,9 @@ sub push () {
     my $tree = mktree_in_ud_from_only_subdir();
     chdir '../../../..' or die $!;
     runcmd qw(git diff --exit-code), $tree;
     my $tree = mktree_in_ud_from_only_subdir();
     chdir '../../../..' or die $!;
     runcmd qw(git diff --exit-code), $tree;

+    runcmd qw(git fetch), $alioth_git,
+        map { "$_:refs/remotes/$remotename/$_" }
+        (mainbranch(), uploadbranch());

     
     die <<END;
 fetch from alioth
     
     die <<END;
 fetch from alioth