more windows test debug

clojure · Aug 11, 2023 · 4d661fb · 4d661fb
1 parent cc8017e
commit 4d661fb
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/src/main/clojure/clojure/tools/build/tasks/uber.clj b/src/main/clojure/clojure/tools/build/tasks/uber.clj
@@ -156,6 +156,11 @@
    Returns possibly updated state for further exploding."
   [^InputStream is ^String path dir? ^FileTime last-modified-time
    ^File out-file lib {:keys [out-dir buffer exclude handlers] :as context} state]
+  (when (= path "META-INF\\LICENSE.txt")
+    (println "in explode1"
+      (exclude-from-uber? exclude path)
+      dir?
+      (.exists out-file)))
   (cond
     ;; excluded or directory - do nothing
     (or (exclude-from-uber? exclude path) dir?)