diff options
author | Ian Jackson <ijackson@chiark.greenend.org.uk> | 2019-07-06 10:30:35 +0100 |
---|---|---|
committer | Ian Jackson <ijackson@chiark.greenend.org.uk> | 2019-07-06 15:58:10 +0100 |
commit | 6704aa487d7a753dc8a6a3269813b77cdce65867 (patch) | |
tree | 75935679c5907d9254c46831e4ecbfc496649415 /infra | |
parent | 134136229bc4e6638d4a064b92a43b2e4f6bc341 (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-x | infra/dgit-repos-server | 12 |
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 = $_; |