branch: elpa-admin
commit 39d29cfe18974eba65fdd8e39399a43131adaf57
Author: Stefan Monnier <[email protected]>
Commit: Stefan Monnier <[email protected]>
* elpa-admin.el (elpaa--wsl-collect): Don't get confused by ctime changes
---
elpa-admin.el | 3 +++
1 file changed, 3 insertions(+)
diff --git a/elpa-admin.el b/elpa-admin.el
index a358b02021..ced81fb3f9 100644
--- a/elpa-admin.el
+++ b/elpa-admin.el
@@ -2156,6 +2156,9 @@ arbitrary code."
;; files that may still be modified.
(dolist (logfile (directory-files elpaa--wsl-directory t "\\.[lgx]z\\'"))
(let ((attrs (file-attributes logfile)))
+ ;; The log files get renamed, which changes their `ctime', so let's
+ ;; throw out this information.
+ (setf (nth 6 attrs) nil)
(cond
((string-match "error.log" logfile) nil) ;Ignore the error log files.
((member attrs seen) nil) ;Already processed.
