summaryrefslogtreecommitdiff
path: root/dgit
diff options
context:
space:
mode:
authorIan Jackson <ijackson@chiark.greenend.org.uk>2017-01-25 15:42:00 +0000
committerIan Jackson <ijackson@chiark.greenend.org.uk>2017-01-25 15:42:00 +0000
commit4f89b4d20f0663710396f37b3b53fd32cc71b090 (patch)
tree496f74f798433b4bb63770597ddf2a5e0f16fcd1 /dgit
parent645ccc1ae50ca1d61d0787e49798e500089db30b (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-xdgit8
1 files changed, 6 insertions, 2 deletions
diff --git a/dgit b/dgit
index 8e7f239..af14e3f 100755
--- a/dgit
+++ b/dgit
@@ -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 ($@) {