uber - fix from TBUILD-30 to close copied file streams

Author: puredanger

CHANGELOG.md

@@ -1,6 +1,8 @@
 Changelog
 ===========
 
+* next
+  * uber - fix from TBUILD-30 to close copied file streams
 * v0.9.1 27ff8a4 on Jan 13, 2023
   * uber - TBUILD-35 Fix error on exploding jar with / entry
   * uber - TBUILD-30 Apply exclusions and conflict handlers for local and git libs

src/main/clojure/clojure/tools/build/tasks/uber.clj

@@ -190,10 +190,14 @@
       (loop [[^File f & restf] fs, the-state state]
         (if f
           (let [is (when (.isFile f) (jio/input-stream f))
-                path (.toString (.relativize source-path (.toPath f)))
-                source-time (FileTime/fromMillis (.lastModified f))
-                out-file (jio/file out-dir path)]
-            (recur restf (explode1 is path (.isDirectory f) source-time out-file lib context the-state)))
+                new-state (try
+                            (let [path (.toString (.relativize source-path (.toPath f)))
+                                  source-time (FileTime/fromMillis (.lastModified f))
+                                  out-file (jio/file out-dir path)]
+                              (explode1 is path (.isDirectory f) source-time out-file lib context the-state))
+                            (finally
+                              (when is (.close ^InputStream is))))]
+            (recur restf new-state))
           the-state)))
 
     :else