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

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>

diff --git a/debian/changelog b/debian/changelog
index cca9febdd049988a4e6a61a1a456b43eb8cb9af6..5d37f9616124f79b6ce31daea0d94373e0966c17 100644 (file)
--- a/debian/changelog
+++ b/debian/changelog
@@ -11,6 +11,8 @@ dgit (3.0~) unstable; urgency=medium
     suite and distro more reliably and consistently.
   * Parsing of extended Dgit fields by import-dsc was broken;
     and is now fixed even for more-extended ones.
+  * dgit clone-dgit-repos-server uses readonly access.
+    Closes:#850521.
 
   Minor new feature:
   * distro alias facility in config space.  (Primarily for testing.)

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";