guix-devel/gnu/packages/patches/dmd-getpw.patch

When bootstrapping and running as PID 1, /etc/{passwd,shadow} may be unavailable.
Gracefully handle that.

diff --git a/modules/dmd/support.scm b/modules/dmd/support.scm
index 9b592c5..602e409 100644
--- a/modules/dmd/support.scm
+++ b/modules/dmd/support.scm
@@ -151,7 +151,10 @@ There is NO WARRANTY, to the extent permitted by law.")))
 
 
 ;; Home directory of the user.
-(define user-homedir (passwd:dir (getpwuid (getuid))))
+(define user-homedir
+  (or (false-if-exception (passwd:dir (getpwuid (getuid))))
+      (getenv "HOME")
+      "/"))
 
 ;; Logfile.
 (define default-logfile
-												gnu: Populate /etc upon startup.

* gnu/packages/patches/dmd-getpw.patch: New file.
* gnu-system.am (dist_patch_DATA): Add it.
* gnu/packages/system.scm (dmd): Use it.
* gnu/system/vm.scm (system-qemu-image): Don't explicitly populate /etc;
  don't add ETC to the GC roots.
* gnu/system/dmd.scm (dmd-configuration-file): Add 'etc' parameter.
  [config]: Populate /etc from there.

											
										
										
											2013-12-08 21:22:22 +01:00
+								When bootstrapping and running as PID 1, /etc/{passwd,shadow} may be unavailable.
 								Gracefully handle that.
 								diff --git a/modules/dmd/support.scm b/modules/dmd/support.scm
 								index 9b592c5..602e409 100644
 								--- a/modules/dmd/support.scm
 								+++ b/modules/dmd/support.scm
@@ -151,7 +151,10 @@ There is NO WARRANTY, to the extent permitted by law.")))
 								 ;; Home directory of the user.
 								-(define user-homedir (passwd:dir (getpwuid (getuid))))
 								+(define user-homedir
 								+  (or (false-if-exception (passwd:dir (getpwuid (getuid))))
 								+      (getenv "HOME")
 								+      "/"))
 								 ;; Logfile.
 								 (define default-logfile