03/06: build: install: Ignore chown exceptions.

[guix-commits]

mothacehe pushed a commit to branch wip-disk-image
in repository guix.

commit d8adac45fcf4247cfc834d4fb45a6891f5fa6925
Author: Mathieu Othacehe <address@hidden>
AuthorDate: Tue Apr 28 14:16:33 2020 +0200

    build: install: Ignore chown exceptions.
    
    Changing ownership may require root permissions. As image can now be 
generated
    without root permissions (no VM involved), ignore those exceptions.
    
    * gnu/build/install.scm (evaluate-populate-directive): Ignore chown
    exceptions.
---
 gnu/build/install.scm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/gnu/build/install.scm b/gnu/build/install.scm
index c0d4d44..0b0d01c 100644
--- a/gnu/build/install.scm
+++ b/gnu/build/install.scm
@@ -63,7 +63,9 @@ directory TARGET."
           (('directory name uid gid)
            (let ((dir (string-append target name)))
              (mkdir-p dir)
-             (chown dir uid gid)))
+             ;; This will fail if this is not run from a VM, ignore those
+             ;; errors.
+             (false-if-exception (chown dir uid gid))))
           (('directory name uid gid mode)
            (loop `(directory ,name ,uid ,gid))
            (chmod (string-append target name) mode))