X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?a=blobdiff_plain;f=dgit;h=63acf0abb0dd9f2d8b89024e33d869f2502f19b6;hb=f612635f94e6c25585ee0064fda468099f22b88f;hp=26a8bf0cc9d835c80d221e57d4a538056dc81ef5;hpb=06d4233815988df7f7583ef16444ed84dc5d8a58;p=dgit.git

diff --git a/dgit b/dgit
index 26a8bf0c..63acf0ab 100755
--- a/dgit
+++ b/dgit
@@ -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