1
0
mirror of https://github.com/janet-lang/janet synced 2025-12-17 05:58:06 +00:00

Check bundle listing before reinstall.

This commit is contained in:
Calvin Rose
2024-05-26 10:28:19 -05:00
parent f7c90bc1ff
commit 7efb39d608
2 changed files with 7 additions and 2 deletions

View File

@@ -4323,7 +4323,8 @@
(def absdest (string (dyn *syspath*) s dest))
(unless (os/mkdir absdest)
(errorf "collision at %s, directory already exists" absdest))
(array/push files (os/realpath absdest))
(def absdest (os/realpath absdest))
(array/push files absdest)
(when chmod-mode
(os/chmod absdest chmod-mode))
(print "add " absdest)
@@ -4339,7 +4340,8 @@
(when (os/stat absdest :mode)
(errorf "collision at %s, file already exists" absdest))
(copyfile src absdest)
(array/push files (os/realpath absdest))
(def absdest (os/realpath absdest))
(array/push files absdest)
(when chmod-mode
(os/chmod absdest chmod-mode))
(print "add " absdest)