diff options
author | Ian Jackson <ijackson@chiark.greenend.org.uk> | 2017-01-25 15:42:00 +0000 |
---|---|---|
committer | Ian Jackson <ijackson@chiark.greenend.org.uk> | 2017-01-25 15:42:00 +0000 |
commit | 4f89b4d20f0663710396f37b3b53fd32cc71b090 (patch) | |
tree | 496f74f798433b4bb63770597ddf2a5e0f16fcd1 /dgit | |
parent | 645ccc1ae50ca1d61d0787e49798e500089db30b (diff) |
pseudomerge_version_check; Break out $gf
No functional change.
Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
Diffstat (limited to 'dgit')
-rwxr-xr-x | dgit | 8 |
1 files changed, 6 insertions, 2 deletions
@@ -3802,8 +3802,12 @@ sub pseudomerge_version_check ($$) { eval { my @xa = ("-f$v", "-t$v"); my $vclogp = parsechangelog @xa; - my $cv = [ (getfield $vclogp, 'Version'), - "Version field from dpkg-parsechangelog @xa" ]; + my $gf = sub { + my ($fn) = @_; + [ (getfield $vclogp, $fn), + "$fn field from dpkg-parsechangelog @xa" ]; + }; + my $cv = $gf->('Version'); infopair_cond_equal($i_arch_v, $cv); }; if ($@) { |