dgit: clone-dgit-repos-server: Set $access_forpush

[dgit.git] / dgit

diff --git a/dgit b/dgit
index 8c9765e38c39658e3bb776f4a365080f800bd1e8..3b4313bc39d9f1c70c42ba7e17a860d77a270717 100755 (executable)
--- a/dgit
+++ b/dgit
@@ -6156,6 +6156,7 @@ sub cmd_clone_dgit_repos_server {
     badusage "need destination argument" unless @ARGV==1;
     my ($destdir) = @ARGV;
     $package = '_dgit-repos-server';
+    local $access_forpush = 0;
     my @cmd = (@git, qw(clone), access_giturl(), $destdir);
     debugcmd ">",@cmd;
     exec @cmd or fail "exec git clone: $!\n";