diff options
author | Ian Jackson <ijackson@chiark.greenend.org.uk> | 2019-06-29 00:22:01 +0100 |
---|---|---|
committer | Ian Jackson <ijackson@chiark.greenend.org.uk> | 2019-06-29 00:52:46 +0100 |
commit | f612635f94e6c25585ee0064fda468099f22b88f (patch) | |
tree | 32488c1b5071f27b47e42adf3eb0f0c21702aab6 /dgit | |
parent | 06d4233815988df7f7583ef16444ed84dc5d8a58 (diff) |
Rename various *make_commit* to *hash_commit*
This avoids a subroutine name clash with make_commit in gdr.
No functional change.
Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
Diffstat (limited to 'dgit')
-rwxr-xr-x | dgit | 22 |
1 files changed, 11 insertions, 11 deletions
@@ -2112,7 +2112,7 @@ END } } -sub make_commit ($) { +sub hash_commit ($) { my ($file) = @_; return cmdoutput @git, qw(hash-object -w -t commit), $file; } @@ -2528,7 +2528,7 @@ sub generate_commits_from_dsc () { printdebug "import tartree $tt->{F} $tt->{Tree}\n"; my $mbody = f_ "Import %s", $tt->{F}; - $tt->{Commit} = make_commit_text($tt->{Orig} ? <<END_O : <<END_T); + $tt->{Commit} = hash_commit_text($tt->{Orig} ? <<END_O : <<END_T); tree $tt->{Tree} author $r1authline committer $r1authline @@ -2567,14 +2567,14 @@ $changes END close C or confess "$!"; - my $rawimport_hash = make_commit qw(../commit.tmp); + my $rawimport_hash = hash_commit qw(../commit.tmp); if (madformat $dsc->{format}) { printdebug "import apply patches...\n"; # regularise the state of the working tree so that # the checkout of $rawimport_hash works nicely. - my $dappliedcommit = make_commit_text(<<END); + my $dappliedcommit = hash_commit_text(<<END); tree $dappliedtree author $authline committer $authline @@ -3424,7 +3424,7 @@ END } close MC or confess "$!"; - $hash = make_commit $mcf; + $hash = hash_commit $mcf; } else { $hash = $mergeinputs[0]{Commit}; } @@ -3785,7 +3785,7 @@ sub fork_for_multisuite ($) { $commit .= "author $authline\n". "committer $authline\n\n"; - $output = make_commit_text $commit.$msg; + $output = hash_commit_text $commit.$msg; printdebug "multisuite merge generated $output\n"; } @@ -4112,7 +4112,7 @@ END return $i_arch_v; } -sub pseudomerge_make_commit ($$$$ $$) { +sub pseudomerge_hash_commit ($$$$ $$) { my ($clogp, $dgitview, $archive_hash, $i_arch_v, $msg_cmd, $msg_msg) = @_; progress f_ "Declaring that HEAD includes all changes in %s...", @@ -4144,7 +4144,7 @@ $msg_msg END close MC or confess "$!"; - return make_commit($pmf); + return hash_commit($pmf); } sub splitbrain_pseudomerge ($$$$) { @@ -4202,7 +4202,7 @@ ENDT } my $arch_v = $i_arch_v->[0]; - my $r = pseudomerge_make_commit + my $r = pseudomerge_hash_commit $clogp, $dgitview, $archive_hash, $i_arch_v, "dgit --quilt=$quilt_mode", (defined $overwrite_version @@ -4226,7 +4226,7 @@ sub plain_overwrite_pseudomerge ($$$) { my $m = f_ "Declare fast forward from %s", $i_arch_v->[0]; - my $r = pseudomerge_make_commit + my $r = pseudomerge_hash_commit $clogp, $head, $archive_hash, $i_arch_v, "dgit", $m; @@ -7090,7 +7090,7 @@ END my $version = getfield $dsc, 'Version'; my $clogp = commit_getclogp $newhash; my $authline = clogp_authline $clogp; - $newhash = make_commit_text <<ENDU + $newhash = hash_commit_text <<ENDU tree $tree parent $newhash parent $oldhash |