From 581e4e76d488cee8af76798780cbd34d702442dd Mon Sep 17 00:00:00 2001 From: Ian Jackson Date: Sat, 6 Jul 2019 10:33:46 +0100 Subject: [PATCH] dgit-repos-server: parsetag_general: Abolish $mainfn, use readtag No functional change. Signed-off-by: Ian Jackson --- infra/dgit-repos-server | 20 +++++++++----------- 1 file changed, 9 insertions(+), 11 deletions(-) diff --git a/infra/dgit-repos-server b/infra/dgit-repos-server index 21a8024a..361fa4a3 100755 --- a/infra/dgit-repos-server +++ b/infra/dgit-repos-server @@ -572,13 +572,10 @@ sub readtag () { $!=0; $_=; defined or die $!; } -sub parsetag_general ($$;$) { - my ($mainfn, $dgititemfn, $need_distro) = @_; +sub parsetag_general ($;$) { + my ($dgititemfn, $need_distro) = @_; printdebug " parsetag...\n"; - readtag(); - $mainfn->(); - my $copyl = $_; for (;;) { print PT $copyl or die $!; @@ -615,13 +612,14 @@ sub parsetag_general ($$;$) { } sub parsetag () { + readtag(); + m/^($package_re) release (\S+) for \S+ \((\S+)\) \[dgit\]$/ or + reject "tag message not in expected format"; + die unless $1 eq $package; + $version = $2; + die "$3 != $suite " unless $3 eq $suite; + parsetag_general sub { - m/^($package_re) release (\S+) for \S+ \((\S+)\) \[dgit\]$/ or - reject "tag message not in expected format"; - die unless $1 eq $package; - $version = $2; - die "$3 != $suite " unless $3 eq $suite; - }, sub { if (s/^(--deliberately-$deliberately_re) //) { push @deliberatelies, $1; } elsif (s/^previously:(\S+)=(\w+) //) { -- 2.30.2