clone: Check for git earlier

check_for_git is going to maybe want to change the git-url, so run it
sooner.  No substantial functional change.

1 files changed, 2 insertions, 1 deletions

diff --git a/dgit b/dgit
index 38b02e4..4c8a09d 100755
--- a/dgit
+++ b/dgit
@@ -1377,6 +1377,7 @@ sub clone ($) {
     my ($dstdir) = @_;
     canonicalise_suite();
     badusage "dry run makes no sense with clone" unless act_local();
+    my $hasgit = check_for_git();
     mkdir $dstdir or die "$dstdir $!";
     changedir $dstdir;
     runcmd @git, qw(init -q);
@@ -1388,7 +1389,7 @@ sub clone ($) {
 	close H or die $!;
 	runcmd @git, qw(remote add), 'origin', $giturl;
     }
-    if (check_for_git()) {
+    if ($hasgit) {
 	progress "fetching existing git history";
 	git_fetch_us();
 	runcmd_ordryrun_local @git, qw(fetch origin);