Temporary files in multpart store deleted on exit

mmcgrana · 9a97af204f3dad163f29ecefbde93fe5d508fe7a · weavejester committed Mar 24, 2011 · Mar 24, 2011 · 9a97af2
1 parent b5f5f2a
commit 9a97af204f3dad163f29ecefbde93fe5d508fe7a
Unified Split

Showing with 2 additions and 1 deletion.

+2 −1 ring-core/src/ring/middleware/multipart_params/temp_file.clj
@@ -5,7 +5,8 @@
 (defn temp-file-store
   "Stores multipart file parameters as a temporary file."
   [item]
-  (let [temp-file (File/createTempFile "ring-multipart-" "")]
+  (let [temp-file (File/createTempFile "ring-multipart-" nil)]
+    (.deleteOnExit temp-file)
     (with-open [out (io/output-stream temp-file)]
       (io/copy (:stream item) out))
     (-> (select-keys item [:filename :content-type])