[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

bug#19743: 'wrap-program' should preserve symbolic links

From: Ludovic Courtès
Subject: bug#19743: 'wrap-program' should preserve symbolic links
Date: Sun, 01 Feb 2015 22:41:57 +0100
User-agent: Gnus/5.13 (Gnus v5.13) Emacs/24.4 (gnu/linux)

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


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)
         (wrapper-file-name number)))

reply via email to

[Prev in Thread] Current Thread [Next in Thread]