X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?a=blobdiff_plain;f=infra%2Fdgit-repos-server;h=811db69dd38021c3cb845ec781f6f8e81903cdfd;hb=f50450ae5e1ee0b122570dd17f7839f46ecbee92;hp=f1308da8e4eaaa418eac0ae86f102a2ba9499b71;hpb=51b7b48c8133127aefbe8d92a354e4b002cacdce;p=dgit.git

diff --git a/infra/dgit-repos-server b/infra/dgit-repos-server
index f1308da8..811db69d 100755
--- a/infra/dgit-repos-server
+++ b/infra/dgit-repos-server
@@ -1149,7 +1149,6 @@ sub mode_tag2upload () {
 
     # This is for us.  From now on, we will capture errors to
     # be emailed to the tagger.
-    # TODO: failures to git fetch from salsa will burn a version
 
     open H, ">>dgit-tmp/tagupl.email" or die $!;
     print H <<END or die $!;
@@ -1189,14 +1188,15 @@ END
                 -f$ENV{DGIT_DRS_EMAIL_NOREPLY}        \\
                 <tagupl.email
 END
-	exit 0;
+	$quit->("failed, emailed");
     }
 
     open STDERR, ">&L" or die $!;
     open STDOUT, ">&STDERR" or die $!;
     open DEBUG, ">&STDERR" if $debuglevel;
 
-    die "$tagmversion != $version " unless $tagmversion eq $version;
+    reject "version mismatch $tagmversion != $version "
+	unless $tagmversion eq $version;
 
     my %need = map { $_ => 1 } qw(please-upload split);
     my ($upstreamc, $upstreamt);