01/01: system: Provide a fall-back PATH for non-login shells started with su(1).

[Leo Famulari]

lfam pushed a commit to branch master
in repository guix.

commit e453da132a3482540d2166b23554ef693b2c0c0d
Author: Leo Famulari <address@hidden>
Date:   Sun Apr 8 14:30:05 2018 -0400

    system: Provide a fall-back PATH for non-login shells started with su(1).
    
    * gnu/system.scm (operating-system-etc-service): Provide values for
    ENV_PATH and ENV_SUPATH in '/etc/login.defs'.
---
 gnu/system.scm | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

diff --git a/gnu/system.scm b/gnu/system.scm
index 592a0ea..1cf00aa 100644
--- a/gnu/system.scm
+++ b/gnu/system.scm
@@ -571,7 +571,16 @@ This is the GNU system.  Welcome.\n")
 (define* (operating-system-etc-service os)
   "Return a <service> that builds containing the static part of the /etc
 directory."
-  (let ((login.defs (plain-file "login.defs" "# Empty for now.\n"))
+  (let ((login.defs
+          (plain-file "login.defs"
+                      (string-append
+                        "# Default paths for non-login shells started by 
su(1).\n"
+                        "ENV_PATH    /run/setuid-programs:"
+                        "/run/current-system/profile/bin:"
+                        "/run/current-system/profile/sbin\n"
+                        "ENV_SUPATH  /run/setuid-programs:"
+                        "/run/current-system/profile/bin:"
+                        "/run/current-system/profile/sbin\n")))
 
         (issue      (plain-file "issue" (operating-system-issue os)))
         (nsswitch   (plain-file "nsswitch.conf"