johanels/penpot
1
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-12-12 06:24:17 +01:00
Code Issues Actions 9 Packages Projects Releases Wiki Activity

✨ Simplify tempfile deletion handling

Browse Source 
Mainly removes the jvm on-exit hook usage because it can lead
to slow stops and unnecesary memory consumption over the time
the jvm is running.
This commit is contained in:
Andrey Antukh
2025-11-13 15:08:45 +01:00
parent 63497b8930
commit 86ad56797b
1 changed files with 8 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
backend/src/app/storage/tmp.clj
View File

@@ -79,14 +79,17 @@
;; API ;; API
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defn tempfile (defn tempfile*
[& {:keys [suffix prefix min-age] [& {:keys [suffix prefix]
:or {prefix "penpot." :or {prefix "penpot."
suffix ".tmp"}}] suffix ".tmp"}}]
(let [attrs (fs/make-permissions "rw-r--r--") (let [attrs (fs/make-permissions "rw-r--r--")
path (fs/join default-tmp-dir (str prefix (uuid/next) suffix)) path (fs/join default-tmp-dir (str prefix (uuid/next) suffix))]
path (Files/createFile path attrs)] (Files/createFile path attrs)))
(fs/delete-on-exit! path)
(defn tempfile
[& {:keys [min-age] :as opts}]
(let [path (tempfile* opts)]
(sp/offer! queue [path (some-> min-age ct/duration)]) (sp/offer! queue [path (some-> min-age ct/duration)])
path)) path))