From 7974dfca0f2a09eb1ea466f9937d52dc488320d9 Mon Sep 17 00:00:00 2001
From: Shantanu Kumar <kumar.shantanu@gmail.com>
Date: Sun, 29 Jun 2014 11:22:34 +0530
Subject: [PATCH] avoid creating dir only if it is \".\"

---
 src/leiningen/new/templates.clj | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/leiningen/new/templates.clj b/src/leiningen/new/templates.clj
index 9e20abe1..e948df73 100644
--- a/src/leiningen/new/templates.clj
+++ b/src/leiningen/new/templates.clj
@@ -165,7 +165,7 @@
   (let [dir (or *dir*
                 (-> (System/getProperty "leiningen.original.pwd")
                     (io/file name) (.getPath)))]
-    (if (or (.isDirectory (io/files dir)) (.mkdir (io/file dir)) *force?*)
+    (if (or (= "." dir) (.mkdir (io/file dir)) *force?*)
       (doseq [path paths]
         (if (string? path)
           (.mkdirs (template-path dir path data))