Escape classpath separators.

Fixes technomancy#1328.
zbrdge · Nov 14, 2013 · 23b3477 · 23b3477
1 parent 9718597
commit 23b3477
Showing 1 changed file with 6 additions and 3 deletions.
diff --git a/leiningen-core/src/leiningen/core/classpath.clj b/leiningen-core/src/leiningen/core/classpath.clj
@@ -329,9 +329,12 @@
                                         project options))))
 
 (defn- normalize-path [root path]
-  (let [f (io/file path)] ; http://tinyurl.com/ab5vtqf
-    (.getAbsolutePath (if (or (.isAbsolute f) (.startsWith (.getPath f) "\\"))
-                        f (io/file root path)))))
+  (let [f (io/file path) ; http://tinyurl.com/ab5vtqf
+        abs (.getAbsolutePath (if (or (.isAbsolute f)
+                                      (.startsWith (.getPath f) "\\"))
+                                f (io/file root path)))
+        sep (System/getProperty "path.separator")]
+    (str/replace abs sep (str "\\" sep))))
 
 (defn ext-dependency?
   "Should the given dependency be loaded in the extensions classloader?"