Fix a hang when using git-annex with an old openssh 7.2p2

This does mean a 2 second delay after transfers when using that ssh, but
it's an old and apparently quite weirdly broken version of ssh.

Utility/Metered.hs

@@ -1,6 +1,6 @@
 {- Metered IO and actions
  -
- - Copyright 2012-2018 Joey Hess <id@joeyh.name>
+ - Copyright 2012-2020 Joey Hess <id@joeyh.name>
  -
  - License: BSD-2-clause
  -}
@@ -46,6 +46,7 @@ import Common
 import Utility.Percentage
 import Utility.DataUnits
 import Utility.HumanTime
+import Utility.ThreadScheduler
 
 import qualified Data.ByteString.Lazy as L
 import qualified Data.ByteString as S
@@ -314,10 +315,22 @@ outputFilter cmd params environ outfilter errfilter =
 	catchMaybeIO $ withCreateProcess p go
   where
 	go _ (Just outh) (Just errh) pid = do
-		void $ concurrently 
+		outt <- async $ tryIO (outfilter outh) >> hClose outh
-			(tryIO (outfilter outh) >> hClose outh)
+		errt <- async $ tryIO (errfilter errh) >> hClose errh
-			(tryIO (errfilter errh) >> hClose errh)
+		ret <- waitForProcess pid
-		waitForProcess pid
+		-- Normally, now that the process has exited, the threads
+		-- will finish processing its output and terminate.
+		-- But, just in case the process did something evil like
+		-- forking to the background while inheriting stderr,
+		-- it's possible that the threads will not finish, which
+		-- would result in a deadlock. So, wait a few seconds
+		-- maximum for them to finish and then cancel them.
+		-- (One program that has behaved this way in the past is
+		-- openssh.)
+		race_
+			(wait outt >> wait errt)
+			(threadDelaySeconds (Seconds 2) >> cancel outt >> cancel errt)
+		return ret
 	go _ _ _ _ = error "internal"
 	
 	p = (proc cmd (toCommand params))

doc/bugs/Recent_hang_with_rsync_remote_with_older_systems___40__Xenial__44___Jessie__41__.mdwn

@@ -161,3 +161,7 @@ in git-annex.
 
 [[!meta author=kyle]]
 [[!tag projects/datalad]]
+
+> [[fixed|done]] made it cancel the threads 2 seconds after the process
+> exited if still running. So there will be a bit of a slow down when using
+> that broken ssh version, but it will work. --[[Joey]]