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

[Andreas Enge]

andreas pushed a commit to branch core-updates
in repository guix.

commit da466f7ff63e34aca271e603090f25ba471f009e
Author: Andreas Enge <address@hidden>
Date:   Sun Feb 15 17:40:17 2015 +0100

    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 <address@hidden>
    
    Closes <http://debbugs.gnu.org/cgi/bugreport.cgi?bug=19743>.
---
 guix/build/utils.scm |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)

diff --git a/guix/build/utils.scm b/guix/build/utils.scm
index a3446cb..6de1fa3 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)))