utils: Preserve symbolic links in 'wrap-program'.

* guix/build/utils.scm (wrap-program): Preserve symbolic links instead of
    copying the contents of the link.

Co-authored-by: Ludovic Courtès <ludo@gnu.org>

Closes <http://debbugs.gnu.org/cgi/bugreport.cgi?bug=19743>.
This commit is contained in:
Andreas Enge 2015-02-15 17:40:17 +01:00
parent b01f89675d
commit da466f7ff6

View File

@ -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)))