- runcmd qw(git fetch), $alioth_git,
- map { "$_:refs/remotes/$remotename/$_" }
- (mainbranch(), uploadbranch());
-
- die <<END;
-fetch from alioth
-do fast forward check and maybe fake merge
-push to uploading
-dput
-push to main
-END
+#fetch from alioth
+#do fast forward check and maybe fake merge
+# if (!is_fast_fwd(mainbranch
+# runcmd qw(git fetch -p ), $alioth_git,
+# map { lref($_).":".rref($_) }
+# (uploadbranch());
+ $dsc->{$ourdscfield} = rev_parse('HEAD');
+ $dsc->save("../$dscfn.tmp") or die $!;
+ rename "../$dscfn.tmp","../$dscfn" or die "$dscfn $!";
+ if ($sign) {
+ runcmd qw(git tag -s),@git_tag_opts,qw(-m),
+ "Release $dsc->{Version} for $suite [dgit]";
+ unlink "../$dscfn.asc" or $!==&ENOENT or die "$dscfn.asc $!";
+ runcmd qw(gpg --clearsign),@gpg_opts,"../$dscfn";
+ rename "../$dscfn.asc","../$dscfn" or die "$dscfn $!";
+ }
+ if (!$nopush) {
+ runcmd qw(git push),$remotename,"HEAD:".lref(uploadbranch());
+ runcmd qw(dput),"../$dscfn";
+ }