summary refs log tree commit diff
diff options
context:
space:
mode:
authorJosselin Poiret <dev@jpoiret.xyz>2022-01-15 14:49:58 +0100
committerMathieu Othacehe <othacehe@gnu.org>2022-02-02 16:46:43 +0100
commit2f7f1d11e9dd8dcf32c2f171f746f087e9354934 (patch)
tree35a23fb0428287fc8e1c5bfc4288d25c606d8ffc
parent438bf9b840695902bc9a214789276227a34e7669 (diff)
downloadguix-2f7f1d11e9dd8dcf32c2f171f746f087e9354934.tar.gz
installer: Keep PATH inside the install container.
* gnu/installer/final.scm (install-system): Set PATH inside the
container.

Signed-off-by: Mathieu Othacehe <othacehe@gnu.org>
-rw-r--r--gnu/installer/final.scm5
1 files changed, 4 insertions, 1 deletions
diff --git a/gnu/installer/final.scm b/gnu/installer/final.scm
index fbfac1f692..7d5eca4c7e 100644
--- a/gnu/installer/final.scm
+++ b/gnu/installer/final.scm
@@ -169,7 +169,8 @@ or #f.  Return #t on success and #f on failure."
          (database-dir    "/var/guix/db")
          (database-file   (string-append database-dir "/db.sqlite"))
          (saved-database  (string-append database-dir "/db.save"))
-         (ret             #f))
+         (ret             #f)
+         (path (getenv "PATH")))
     (mkdir-p (%installer-target-dir))
 
     ;; We want to initialize user passwords but we don't want to store them in
@@ -208,6 +209,8 @@ or #f.  Return #t on success and #f on failure."
              (setvbuf (current-output-port) 'none)
              (setvbuf (current-error-port) 'none)
 
+             (setenv "PATH" path)
+
              ;; If there are any connected clients, assume that we are running
              ;; installation tests. In that case, dump the standard and error
              ;; outputs to syslog.