Overview
| Comment: | Bumping wait-on-journal for portlocker to 5 seconds |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.60 |
| Files: | files | file ages | folders |
| SHA1: |
70e98ec2394d5a1a4e97409f9e01a4b9 |
| User & Date: | mrwellan on 2014-09-11 13:58:57 |
| Other Links: | branch diff | manifest | tags |
Context
|
2014-09-12
| ||
| 06:45 | Partially added latest support but method is not right. Need to re-think check-in: c7e493c054 user: matt tags: v1.60 | |
|
2014-09-11
| ||
| 13:58 | Bumping wait-on-journal for portlocker to 5 seconds check-in: 70e98ec239 user: mrwellan tags: v1.60 | |
| 13:40 | fixed issue with portlocker, added more verbosity on server start check-in: 8cab551ef3 user: mrwellan tags: v1.60 | |
Changes
Modified portlogger.scm from [dd8a916128] to [3222aa8dd9].
| ︙ | ︙ | |||
15 16 17 18 19 20 21 | (declare (unit portlogger)) ;; lsof -i (define (portlogger:open-db fname) | | | 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 | (declare (unit portlogger)) ;; lsof -i (define (portlogger:open-db fname) (let* ((avail (tasks:wait-on-journal fname 5 remove: #t)) ;; wait up to about 10 seconds for the journal to go away (exists (file-exists? fname)) (db (if avail (sqlite3:open-database fname) (begin (system (conc "rm -f " fname)) (sqlite3:open-database fname)))) (handler (make-busy-timeout 136000)) |
| ︙ | ︙ |