From: Ian Jackson Date: Sun, 25 Sep 2016 23:45:01 +0000 (+0100) Subject: Pseudomerge: pseudomerge_make_commit: Lift up some message generation X-Git-Tag: archive/debian/2.0~114 X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?p=dgit.git;a=commitdiff_plain;h=a840640baebaa11079b64be2ae5f89a111648985 Pseudomerge: pseudomerge_make_commit: Lift up some message generation Move the calculation of whether to put "--overwrite=" in the message into the common code. No functional change. Signed-off-by: Ian Jackson --- diff --git a/dgit b/dgit index 18e485a0..0dea96c8 100755 --- a/dgit +++ b/dgit @@ -2412,23 +2412,32 @@ sub pseudomerge_version_check ($$) { return $i_arch_v; } -sub pseudomerge_make_commit ($$$$$) { - my ($clogp, $dgitview, $archive_hash, $i_arch_v, $msg) = @_; +sub pseudomerge_make_commit ($$$$ $$) { + my ($clogp, $dgitview, $archive_hash, $i_arch_v, + $msg_cmd, $msg_msg) = @_; progress "Declaring that HEAD inciudes all changes in $i_arch_v->[0]..."; my $tree = cmdoutput qw(git rev-parse), "${dgitview}:"; my $authline = clogp_authline $clogp; + chomp $msg_msg; + $msg_cmd .= + !defined $overwrite_version ? "" + : " --overwrite=".$overwrite_version; + mkpath '.git/dgit'; my $pmf = ".git/dgit/pseudomerge"; open MC, ">", $pmf or die "$pmf $!"; - print MC <[0] - -[dgit --quilt=$quilt_mode] END_MAKEFF progress "Made pseudo-merge of $i_arch_v->[0] into dgit view."; @@ -2513,11 +2519,8 @@ sub plain_overwrite_pseudomerge ($$$) { my $m = "Declare fast forward from $overwrite_version"; my $r = pseudomerge_make_commit - $clogp, $head, $archive_hash, $i_arch_v, <