X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?p=dgit.git;a=blobdiff_plain;f=Debian%2FDgit.pm;fp=Debian%2FDgit.pm;h=23db6378fe1a06bfb388c25293b4e9e3822d51f9;hp=f1ea1e855737c9bbe8cdd4f60c92eab7aae9f9f4;hb=f612635f94e6c25585ee0064fda468099f22b88f;hpb=06d4233815988df7f7583ef16444ed84dc5d8a58

diff --git a/Debian/Dgit.pm b/Debian/Dgit.pm
index f1ea1e85..23db6378 100644
--- a/Debian/Dgit.pm
+++ b/Debian/Dgit.pm
@@ -62,7 +62,7 @@ BEGIN {
 		      git_reflog_action_msg  git_update_ref_cmd
 		      rm_subdir_cached read_tree_subdir
 		      read_tree_debian read_tree_upstream
-		      make_commit_text
+		      hash_commit_text
 		      reflog_cache_insert reflog_cache_lookup
                       $package_re $component_re $deliberately_re
 		      $distro_re $versiontag_re $series_filename_re
@@ -831,7 +831,7 @@ sub parsechangelog_loop ($$$) {
     close CLOGS or $?==SIGPIPE or failedcmd @$clogcmd;
 }	
 
-sub make_commit_text ($) {
+sub hash_commit_text ($) {
     my ($text) = @_;
     my ($out, $in);
     my @cmd = (qw(git hash-object -w -t commit --stdin));
@@ -872,7 +872,7 @@ sub reflog_cache_insert ($$$) {
 	# git update-ref doesn't always update, in this case.  *sigh*
 	my $authline = (ucfirst _us()).
 	    ' <'._us().'@example.com> 1000000000 +0000';
-	my $dummy = make_commit_text <<ENDU.(__ <<END);
+	my $dummy = hash_commit_text <<ENDU.(__ <<END);
 tree $tree
 parent $value
 author $authline