yogsototh/leiningen
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Escape quotes for Java versions below 7

Browse source 
See http://gluck-md.blogspot.com/2012/12/jdk7-surprise.html

fixes #1121
This commit is contained in:
Colin Jones 2013-04-14 21:03:57 -05:00
parent e6529bc5da
commit f0582e2314
1 changed files with 3 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
leiningen-core/src/leiningen/core/eval.clj
View file

@ -70,7 +70,7 @@ leiningen.core.utils/platform-nullsink instead."
(->> (:dependencies project)
(map classpath/get-native-prefix)
(remove nil?)
(map #(io/file native-path %)))
(map #(io/file native-path %)))
(io/file native-path (name os) (name arch))))))
(defn- as-str [x]
@ -177,9 +177,8 @@ leiningen.core.utils/platform-nullsink instead."
(defn- form-string [form eval-in]
(if (and (= (get-os) :windows) (not= :trampoline eval-in))
;; On windows if a parameter is in double quotes, then all we need
;; to worry about are double quotes, which we must escape by
;; doubling them.
(string/replace (pr-str form) "\"" "\"\"")
;; to worry about are double quotes, which we must escape
(string/replace (pr-str form) "\"" "\\\"")
(pr-str form)))
(defn- classpath-arg [project]