$changes =~ s/^\n//; # Changes: \n
my $cversion = getfield $clogp, 'Version';
+ my $r1authline;
if (@$tartrees) {
$r1clogp //= $clogp; # maybe there's only one entry;
- my $r1authline = clogp_authline $r1clogp;
+ $r1authline = clogp_authline $r1clogp;
# Strictly, r1authline might now be wrong if it's going to be
# unused because !$any_orig. Whatever.
}
}
- return ($authline, $clogp, $changes);
+ return ($authline, $r1authline, $clogp, $changes);
}
sub generate_commits_from_dsc () {
$dappliedtree = git_add_write_tree();
}
- my ($authline, $clogp, $changes) =
+ my ($authline, $r1authline, $clogp, $changes) =
import_tarball_commits(\@tartrees, $upstreamv);
my $cversion = getfield $clogp, 'Version';