- if (!$nopush) {
- runcmd qw(git push),$remotename,"HEAD:".lref(uploadbranch());
- runcmd qw(dput),"../$dscfn";
+ my $tag = debiantag($dsc->{Version});
+ if (!check_for_git()) {
+ runcmd_ordryrun qw(ssh),$alioth_sshtestbodge->[0],
+ "set -e; cd $alioth_sshtestbodge->[1];".
+ " mkdir -p $package.git;".
+ " cd $package.git;".
+ " if ! test -d objects; then git init --bare; fi";
+ }
+ runcmd_ordryrun @git, qw(push),$remotename,"HEAD:".rrref();
+ if ($sign) {
+ my @tag_cmd = (@git, qw(tag -s -m),
+ "Release $dsc->{Version} for $suite [dgit]");
+ push @tag_cmd, qw(-u),$keyid if defined $keyid;
+ push @tag_cmd, $tag;
+ runcmd_ordryrun @tag_cmd;
+ my @debsign_cmd = @debsign;
+ push @debsign_cmd, "-k$keyid" if defined $keyid;
+ push @debsign_cmd, $changesfile;
+ runcmd_ordryrun @debsign_cmd;