Overview
| Comment: | Updated process.scm to close process handles to prevent runaway number of open pipes |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.65 | v1.6518 |
| Files: | files | file ages | folders |
| SHA1: |
32331b404a5e8fd77f7f83a15ef6e0da |
| User & Date: | jmoon18 on 2019-01-08 12:00:09 |
| Other Links: | branch diff | manifest | tags |
Context
|
2019-01-22
| ||
| 17:08 | enabled strict syncing of last_update field check-in: 6d8663e151 user: bjbarcla tags: v1.65 | |
| 16:41 | updated table syncer to update last_update as well Leaf check-in: 85039c3ea4 user: bjbarcla tags: v1.65-lastupdate-strictsync | |
|
2019-01-11
| ||
| 17:28 | Integrating tquery into 1.65 branch check-in: c6ecb4ee03 user: jmoon18 tags: v1.6518-tquery | |
|
2019-01-08
| ||
| 12:00 | Updated process.scm to close process handles to prevent runaway number of open pipes check-in: 32331b404a user: jmoon18 tags: v1.65, v1.6518 | |
|
2019-01-07
| ||
| 11:54 | Updated file limit to avoid runners dying check-in: 16c73ccb25 user: jmoon18 tags: v1.65 | |
Changes
Modified process.scm from [ba823d2c36] to [5288c0cd7b].
| ︙ | ︙ | |||
72 73 74 75 76 77 78 |
(let ((errstr (process:conservative-read fhe)))
(if (not (string=? errstr ""))
(set! result (append result (list errstr)))))
(if (not (eof-object? curr))
(loop (read-line fh)
(append result (list curr)))
(begin
| > | | | < | 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 |
(let ((errstr (process:conservative-read fhe)))
(if (not (string=? errstr ""))
(set! result (append result (list errstr)))))
(if (not (eof-object? curr))
(loop (read-line fh)
(append result (list curr)))
(begin
(let-values (((anotherpid normalexit? exitstatus) (process-wait pid)))
(close-input-port fh)
(close-input-port fhe)
(close-output-port fho)
(list result (if normalexit? exitstatus -1))))))))
(define (process:cmd-run-proc-each-line cmd proc . params)
;; (print "Called with cmd=" cmd ", proc=" proc ", params=" params)
(handle-exceptions
exn
(begin
|
| ︙ | ︙ |