ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-26 14:28:15 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

installer: Keep PATH inside the install container.

Browse source 
* gnu/installer/final.scm (install-system): Set PATH inside the
container.

Signed-off-by: Mathieu Othacehe <othacehe@gnu.org>
This commit is contained in:
Josselin Poiret 2022-01-15 14:49:58 +01:00 committed by Mathieu Othacehe
parent 438bf9b840
commit 2f7f1d11e9
No known key found for this signature in database
GPG key ID: 8354763531769CA6
1 changed files with 4 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
gnu/installer/final.scm
View file

@ -169,7 +169,8 @@ (define (assert-exit x)
(database-dir "/var/guix/db") (database-dir "/var/guix/db")
(database-file (string-append database-dir "/db.sqlite")) (database-file (string-append database-dir "/db.sqlite"))
(saved-database (string-append database-dir "/db.save")) (saved-database (string-append database-dir "/db.save"))
(ret #f)) (ret #f)
(path (getenv "PATH")))
(mkdir-p (%installer-target-dir)) (mkdir-p (%installer-target-dir))
;; We want to initialize user passwords but we don't want to store them in ;; We want to initialize user passwords but we don't want to store them in
@ -208,6 +209,8 @@ (define (assert-exit x)
(setvbuf (current-output-port) 'none) (setvbuf (current-output-port) 'none)
(setvbuf (current-error-port) 'none) (setvbuf (current-error-port) 'none)
(setenv "PATH" path)
;; If there are any connected clients, assume that we are running ;; If there are any connected clients, assume that we are running
;; installation tests. In that case, dump the standard and error ;; installation tests. In that case, dump the standard and error
;; outputs to syslog. ;; outputs to syslog.