From 228b32d473abb72bb26ff8eca008387190428c44 Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Sun, 31 Oct 2010 22:13:43 -0400
Subject: bugfix: shell escape for scp

---
 Remotes.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Remotes.hs b/Remotes.hs
index b9c1b48f3..b36856b54 100644
--- a/Remotes.hs
+++ b/Remotes.hs
@@ -217,7 +217,7 @@ copyToRemote r key file = do
 			liftIO $ boolSystem "scp" [src, sshLocation r file]
 
 sshLocation :: Git.Repo -> FilePath -> FilePath
-sshLocation r file = (Git.urlHost r) ++ ":" ++ file
+sshLocation r file = (Git.urlHost r) ++ ":" ++ shellEscape file
 
 {- Runs a command in a remote. -}
 runCmd :: Git.Repo -> String -> [String] -> Annex Bool
-- 
cgit v1.2.3