Subject: 'wrap-program' should preserve symbolic links
From: [email-masked] (Ludovic Courtès)
To: [email-masked]
Date: Sun, 01 Feb 2015 22:41:57 +0100
List-Id: <debbugs-submit.debbugs.gnu.org>

When ‘wrap-program’ is called on a symbolic link, it should preserve its
symboliclinkness instead of copying it.

Ludo’.

diff --git a/guix/build/utils.scm b/guix/build/utils.scm
index 4407f9a..56f682c 100644
--- a/guix/build/utils.scm
+++ b/guix/build/utils.scm
@@ -837,7 +837,7 @@ the previous wrapper."
     (if (zero? number)
         (let ((prog-real (string-append (dirname prog) "/."
                                         (basename prog) "-real")))
-          (copy-file prog prog-real)
+          (rename-file prog prog-real)
           prog-real)
         (wrapper-file-name number)))