From 133a5a757abd7e7601608d8bead32519815fd9a5 Mon Sep 17 00:00:00 2001
From: Jean Niklas L'orange <jeannikl@hypirion.com>
Date: Thu, 24 Jan 2013 17:20:09 +0100
Subject: [PATCH] "De-regexify" trim-leading.

---
 src/leiningen/jar.clj | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/src/leiningen/jar.clj b/src/leiningen/jar.clj
index e6ee31cc..de07474a 100644
--- a/src/leiningen/jar.clj
+++ b/src/leiningen/jar.clj
@@ -51,7 +51,10 @@
 (defmulti ^:private copy-to-jar (fn [project jar-os acc spec] (:type spec)))
 
 (defn- trim-leading [s to-trim]
-  (.replaceAll s (str "^" (Pattern/quote to-trim)) ""))
+  (let [size (.length to-trim)]
+    (if (.startsWith s to-trim)
+      (.substring s size)
+      s)))
 
 (defmethod copy-to-jar :path [project jar-os acc spec]
   (when-not (acc (:path spec))