repair: Prevent auto gc from happening when fetching from a remote.

Git/Repair.hs

@@ -135,11 +135,16 @@ retrieveMissingObjects missing referencerepo r
 							pullremotes tmpr rmts fetchrefs (FsckFoundMissing stillmissing t)
 				, pullremotes tmpr rmts fetchrefs ms
 				)
-	fetchfrom fetchurl ps = runBool $
+	fetchfrom fetchurl ps fetchr = runBool ps' fetchr'
-		[ Param "fetch"
+	  where
-		, Param fetchurl
+		ps' = 
-		, Params "--force --update-head-ok --quiet"
+			[ Param "fetch"
-		] ++ ps
+			, Param fetchurl
+			, Params "--force --update-head-ok --quiet"
+			] ++ ps
+		fetchr' = fetchr { gitGlobalOpts = gitGlobalOpts fetchr ++ nogc }
+		nogc = [ Param "-c", Param "gc.auto=0" ]
+
 	-- fetch refs and tags
 	fetchrefstags = [ Param "+refs/heads/*:refs/heads/*", Param "--tags"]
 	-- Fetch all available refs (more likely to fail,

debian/changelog

@@ -4,6 +4,7 @@ git-annex (5.20140928) UNRELEASED; urgency=medium
   * Support building with yesod 1.4.
   * S3: Fix embedcreds=yes handling for the Internet Archive.
   * map: Handle .git prefixed remote repos. Closes: #614759
+  * repair: Prevent auto gc from happening when fetching from a remote.
 
  -- Joey Hess <joeyh@debian.org>  Mon, 29 Sep 2014 14:07:51 -0400
 

doc/bugs/git_annex_repair_fails_-___47__tmp__47__tmprepo.1__47__.git__47__gc.pid:_removeLink:_does_not_exist___40__No_such_file_or_directory__41__.mdwn

@@ -36,3 +36,5 @@ git-annex: repair: 1 failed
 
 # End of transcript or log.
 """]]
+
+> Provisionally [[done]]; see comment. --[[Joey]]