From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sat, 6 Jul 2019 09:30:35 +0000 (+0100)
Subject: dgit-repos-server: Break out readtag
X-Git-Tag: archive/debian/9.1~76
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?p=dgit.git;a=commitdiff_plain;h=6704aa487d7a753dc8a6a3269813b77cdce65867

dgit-repos-server: Break out readtag

No functional change other than to debug output.

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
---

diff --git a/infra/dgit-repos-server b/infra/dgit-repos-server
index ee4d5c52..21a8024a 100755
--- a/infra/dgit-repos-server
+++ b/infra/dgit-repos-server
@@ -552,9 +552,9 @@ sub readupdates () {
     printdebug " updates ok.\n";
 }
 
-sub parsetag_general ($$;$) {
-    my ($mainfn, $dgititemfn, $need_distro) = @_;
-    printdebug " parsetag...\n";
+sub readtag () {
+    printdebug " readtag...\n";
+
     open PT, ">dgit-tmp/plaintext" or die $!;
     open DS, ">dgit-tmp/plaintext.asc" or die $!;
     open T, "-|", qw(git cat-file tag), $tagval or die $!;
@@ -570,7 +570,13 @@ sub parsetag_general ($$;$) {
 	}
     }
     $!=0; $_=<T>; defined or die $!;
+}
+
+sub parsetag_general ($$;$) {
+    my ($mainfn, $dgititemfn, $need_distro) = @_;
+    printdebug " parsetag...\n";
 
+    readtag();
     $mainfn->();
 
     my $copyl = $_;