Browse files

Don't set environment to empty map by default.

  • Loading branch information...
1 parent 7070c8f commit afc7df8e7e3bc8a6d92e6443fd44b272e7ffc399 @technomancy committed Apr 25, 2012
Showing with 2 additions and 2 deletions.
  1. +2 −2 leiningen-core/src/leiningen/core/eval.clj
@@ -105,12 +105,12 @@
(def ^:dynamic *dir* (System/getProperty "user.dir"))
-(def ^:dynamic *shell-env* {})
+(def ^:dynamic *env* nil)
(defn sh
"A version of that streams out/err."
[& cmd]
- (let [env (into-array String (map name (apply concat *shell-env*)))
+ (let [env (and *env* (into-array String (map name (apply concat *env*))))
proc (.exec (Runtime/getRuntime) (into-array cmd) env (io/file *dir*))]
(.addShutdownHook (Runtime/getRuntime)
(Thread. (fn [] (.destroy proc))))

0 comments on commit afc7df8

Please sign in to comment.