Overview
| Comment: | Don't attempt to set special internal megatest variables (i.e. with : as part of the variable name) as environment variables |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.64-new-pkts |
| Files: | files | file ages | folders |
| SHA1: |
6da617e8565fae897f999ad366022da8 |
| User & Date: | matt on 2017-03-16 23:59:43 |
| Other Links: | branch diff | manifest | tags |
Context
|
2017-03-19
| ||
| 18:57 | Fixed some linktree issues and backed out some changes made to support contours as a native variable check-in: 5a3f936c46 user: matt tags: v1.64-new-pkts | |
|
2017-03-16
| ||
| 23:59 | Don't attempt to set special internal megatest variables (i.e. with : as part of the variable name) as environment variables check-in: 6da617e856 user: matt tags: v1.64-new-pkts | |
| 23:14 | Corrected logic on extracting spec for linktree check-in: 70a3e1afba user: matt tags: v1.64-new-pkts | |
Changes
Modified common.scm from [ab596b4271] to [dec88d9803].
| ︙ | ︙ | |||
31 32 33 34 35 36 37 | ;; (define (exit . code) ;; (if (null? code) ;; (old-exit) ;; (old-exit code))) (define getenv get-environment-variable) (define (safe-setenv key val) | | > > | 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 |
;; (define (exit . code)
;; (if (null? code)
;; (old-exit)
;; (old-exit code)))
(define getenv get-environment-variable)
(define (safe-setenv key val)
(if (and (string? val)
(string? key)
(not (substring-index ":" key))) ;; variables containing : are for internal use and cannot be environment variables.
(handle-exceptions
exn
(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"))
|
| ︙ | ︙ |