summaryrefslogtreecommitdiff
path: root/infra
diff options
context:
space:
mode:
authorIan Jackson <ijackson@chiark.greenend.org.uk>2019-07-06 10:30:35 +0100
committerIan Jackson <ijackson@chiark.greenend.org.uk>2019-07-06 15:58:10 +0100
commit6704aa487d7a753dc8a6a3269813b77cdce65867 (patch)
tree75935679c5907d9254c46831e4ecbfc496649415 /infra
parent134136229bc4e6638d4a064b92a43b2e4f6bc341 (diff)
dgit-repos-server: Break out readtag
No functional change other than to debug output. Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
Diffstat (limited to 'infra')
-rwxr-xr-xinfra/dgit-repos-server12
1 files changed, 9 insertions, 3 deletions
diff --git a/infra/dgit-repos-server b/infra/dgit-repos-server
index ee4d5c5..21a8024 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 = $_;