Overview
| Comment: | Resolving fork |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.64 |
| Files: | files | file ages | folders |
| SHA1: |
6c3c013ce57a45d07582f48297ef5223 |
| User & Date: | jmoon18 on 2017-07-17 15:31:14 |
| Other Links: | branch diff | manifest | tags |
Context
|
2017-07-17
| ||
| 17:02 | Fixing fork check-in: cedd024462 user: jmoon18 tags: v1.64 | |
| 15:31 | Resolving fork check-in: 6c3c013ce5 user: jmoon18 tags: v1.64 | |
| 15:23 | Modified http-client egg to lock it to 0.7.1 check-in: 10b1c290e6 user: jmoon18 tags: v1.64 | |
| 15:02 | removed close-idle-connections to be compatibile with good old http-client 0.7.1 check-in: 927f0b6053 user: bjbarcla tags: v1.64 | |
Changes
Modified common.scm from [794fa31626] to [3fcd32c183].
| ︙ | |||
43 44 45 46 47 48 49 50 51 52 53 54 55 56 | 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 | + + |
(debug:print-error 0 *default-log-port* "bad value for setenv, key=" key ", value=" val)
(setenv key val))
(debug:print-error 0 *default-log-port* "bad value for setenv, key=" key ", value=" val))))
(define home (getenv "HOME"))
(define user (getenv "USER"))
;; returns list of fd count, socket count
(define (get-file-descriptor-count #!key (pid (current-process-id )))
(list
(length (glob (conc "/proc/" pid "/fd/*")))
(length (filter identity (map socket? (glob (conc "/proc/" pid "/fd/*")))))
)
)
|
| ︙ |
Modified http-transport.scm from [0a52055d0d] to [eebbc561d6].
| ︙ | |||
304 305 306 307 308 309 310 | 304 305 306 307 308 309 310 311 312 313 314 315 316 317 318 | - + | (let ((api-dat (http-transport:server-dat-get-api-uri server-dat))) (handle-exceptions exn (begin (print-call-chain *default-log-port*) (debug:print-error 0 *default-log-port* " closing connection failed with error: " ((condition-property-accessor 'exn 'message) exn))) (close-connection! api-dat) |
| ︙ |