Overview
| Comment: | signature 12 debug attempt 2 |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.64-sig12 |
| Files: | files | file ages | folders |
| SHA1: |
df5d023f0f442cc5e95c0fb13af18093 |
| User & Date: | bjbarcla on 2017-04-19 14:07:11 |
| Other Links: | branch diff | manifest | tags |
Context
|
2017-04-19
| ||
| 14:17 | signature 12 debug attempt 3 check-in: 4ea8bd9fcd user: bjbarcla tags: v1.64-sig12 | |
| 14:07 | signature 12 debug attempt 2 check-in: df5d023f0f user: bjbarcla tags: v1.64-sig12 | |
| 12:56 | signature 12 debug attempt 1 check-in: eb9a42eb42 user: bjbarcla tags: v1.64-sig12 | |
Changes
Modified runs.scm from [0ae3538324] to [a7c944cc22].
| ︙ | ︙ | |||
107 108 109 110 111 112 113 114 115 116 117 118 119 120 |
(lambda ()
(print "*configdat* is >>"*configdat*"<<")
(pp *configdat*)
(pp call-chain)))
(exit 1))))
;;(bb-check-path msg: "runs:set-megatest-env-vars block 1.5")
(alist->env-vars (hash-table-ref/default *configdat* "env-override" '())))) ;;;; environment is tainted HERE in this let block.
;;(bb-check-path msg: "runs:set-megatest-env-vars block 2")
;; Lets use this as an opportunity to put MT_RUNNAME in the environment
(let ((runname (if inrunname inrunname (rmt:get-run-name-from-id run-id))))
(if runname
(setenv "MT_RUNNAME" runname)
(debug:print-error 0 *default-log-port* "no value for runname for id " run-id)))
| > > > | 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 |
(lambda ()
(print "*configdat* is >>"*configdat*"<<")
(pp *configdat*)
(pp call-chain)))
(exit 1))))
;;(bb-check-path msg: "runs:set-megatest-env-vars block 1.5")
(if (or (not *configdat*) (not (hash-table? *configdat*)))
(BB> "ERROR: *configdat* was inaccessible! This should never happen. Brute force reread.")
(launch:setup force-reread: #t))
(alist->env-vars (hash-table-ref/default *configdat* "env-override" '())))) ;;;; environment is tainted HERE in this let block.
;;(bb-check-path msg: "runs:set-megatest-env-vars block 2")
;; Lets use this as an opportunity to put MT_RUNNAME in the environment
(let ((runname (if inrunname inrunname (rmt:get-run-name-from-id run-id))))
(if runname
(setenv "MT_RUNNAME" runname)
(debug:print-error 0 *default-log-port* "no value for runname for id " run-id)))
|
| ︙ | ︙ |