Overview
| Comment: | fixed problem with logs of subrun execution |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.65 |
| Files: | files | file ages | folders |
| SHA1: |
a354b5c1cb82ccca2e2ad6ccbe161f88 |
| User & Date: | bjbarcla on 2017-12-29 15:05:54 |
| Other Links: | branch diff | manifest | tags |
Context
|
2017-12-29
| ||
| 15:15 | fixed a few exception check-in: c8b69bc77f user: bjbarcla tags: v1.65 | |
| 15:05 | fixed problem with logs of subrun execution check-in: a354b5c1cb user: bjbarcla tags: v1.65 | |
| 15:03 | fixed problem with logs of subrun execution check-in: 68d79bff21 user: bjbarcla tags: v1.65 | |
Changes
Modified subrun.scm from [4af2fd651e] to [59afc64e7d].
| ︙ | ︙ | |||
122 123 124 125 126 127 128 |
cmd))
(define (subrun:sanitize-path inpath)
(let* ((insane-pattern (irregex "[^[a-zA-Z0-9_\\-]")))
(regex#string-substitute insane-pattern "_" inpath #t)))
| < < | 122 123 124 125 126 127 128 129 130 131 132 133 134 135 |
cmd))
(define (subrun:sanitize-path inpath)
(let* ((insane-pattern (irregex "[^[a-zA-Z0-9_\\-]")))
(regex#string-substitute insane-pattern "_" inpath #t)))
(define (subrun:get-runarea test-run-dir)
(if (subrun:subrun-test-initialized? test-run-dir)
(let* ((info-alist (subrun:selector+log-alist
test-run-dir
"foo"))
(run-area (if (list? info-alist)
(alist-ref "-start-dir" info-alist equal? #f)
|
| ︙ | ︙ |