Support filenames that start with a dash; when such a file is passed to a utility it will be escaped to avoid it being interpreted as an option.

1 files changed, 6 insertions, 4 deletions

diff --git a/CopyFile.hs b/CopyFile.hs
index e913aa070..73d911a29 100644
--- a/CopyFile.hs
+++ b/CopyFile.hs
@@ -23,9 +23,11 @@ copyFile src dest = do
 	boolSystem "cp" opts
 	where
 		opts = if SysConfig.cp_reflink_auto
-			then ["--reflink=auto", src, dest]
+			then ["--reflink=auto", src', dest']
 			else if SysConfig.cp_a
-				then ["-a", src, dest]
+				then ["-a", src', dest']
 				else if SysConfig.cp_p
-					then ["-p", src, dest]
-					else [src, dest]
+					then ["-p", src', dest']
+					else [src', dest']
+		src' = utilityEscape src
+		dest' = utilityEscape dest