diff options
Diffstat (limited to 'infra/dgit-repos-server')
-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 = $_; |