From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Wed, 25 Jan 2017 15:42:00 +0000 (+0000)
Subject: pseudomerge_version_check; Break out $gf
X-Git-Tag: archive/debian/3.9~5
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?p=dgit.git;a=commitdiff_plain;h=4f89b4d20f0663710396f37b3b53fd32cc71b090

pseudomerge_version_check; Break out $gf

No functional change.

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
---

diff --git a/dgit b/dgit
index 8e7f2391..af14e3f9 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 ($@) {