X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?p=dgit.git;a=blobdiff_plain;f=dgit;h=554a5abb4395bc998c46c0b4ca5ea72c83befc70;hp=bc9f74e1b82815f2e0f4dec6708b37f134480672;hb=3d451b46246c091fc6fb91c65e119af9cb82243a;hpb=59fbae9cfaa385e896af7714ee697a675de557ec

diff --git a/dgit b/dgit
index bc9f74e1..554a5abb 100755
--- a/dgit
+++ b/dgit
@@ -1562,6 +1562,8 @@ sub canonicalise_suite () {
     $csuite = archive_query('canonicalise_suite');
     if ($isuite ne $csuite) {
 	progress "canonical suite name for $isuite is $csuite";
+    } else {
+	progress "canonical suite name is $csuite";
     }
 }
 
@@ -2648,6 +2650,24 @@ sub mergeinfo_version ($) {
     return getfield( (mergeinfo_getclogp $_[0]), 'Version' );
 }
 
+sub fetch_from_archive_record_1 ($) {
+    my ($hash) = @_;
+    runcmd @git, qw(update-ref -m), "dgit fetch $csuite",
+	    'DGIT_ARCHIVE', $hash;
+    cmdoutput @git, qw(log -n2), $hash;
+    # ... gives git a chance to complain if our commit is malformed
+}
+
+sub fetch_from_archive_record_2 ($) {
+    my ($hash) = @_;
+    my @upd_cmd = (@git, qw(update-ref -m), 'dgit fetch', lrref(), $hash);
+    if (act_local()) {
+	cmdoutput @upd_cmd;
+    } else {
+	dryrun_report @upd_cmd;
+    }
+}
+
 sub fetch_from_archive () {
     ensure_setup_existing_tree();
 
@@ -2961,10 +2981,7 @@ END
 	if $lastpush_hash;
     $chkff->($lastfetch_hash, 'local tracking tip (last fetch)');
 
-    runcmd @git, qw(update-ref -m), "dgit fetch $csuite",
-	    'DGIT_ARCHIVE', $hash;
-    cmdoutput @git, qw(log -n2), $hash;
-    # ... gives git a chance to complain if our commit is malformed
+    fetch_from_archive_record_1($hash);
 
     if (defined $skew_warning_vsn) {
 	mkpath '.git/dgit';
@@ -2984,12 +3001,7 @@ END
     }
 
     if ($lastfetch_hash ne $hash) {
-	my @upd_cmd = (@git, qw(update-ref -m), 'dgit fetch', lrref(), $hash);
-	if (act_local()) {
-	    cmdoutput @upd_cmd;
-	} else {
-	    dryrun_report @upd_cmd;
-	}
+	fetch_from_archive_record_2($hash);
     }
 
     lrfetchref_used lrfetchref();