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 8e7f2391adff56bc84898b8d70d2a31ca9e4938d..af14e3f9183c3984374b79e874242b293e48b5ff 100755 (executable)
--- a/dgit
+++ b/dgit
@@ -3802,8 +3802,12 @@ sub pseudomerge_version_check ($$) {
            eval {
                my @xa = ("-f$v", "-t$v");
                my $vclogp = parsechangelog @xa;
            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 ($@) {
                infopair_cond_equal($i_arch_v, $cv);
            };
            if ($@) {