No functional change.
Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
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 ($@) {