~ruther/guix-local

50b87bd54b7fd5fe5cb3482d7801d5e74d0c2fb3 — Ludovic Courtès 11 years ago 99533da 
build-system/gnu: Strip only ELF files.

Suggested by Mark H Weaver <mhw@netris.org>
at <http://lists.gnu.org/archive/html/guix-devel/2014-10/msg00395.html>.

* guix/build/gnu-build-system.scm (strip)[strip-dir]: Strip only
  when (elf-file? PATH) is true.
patch browse .tar.gz 
1 files changed, 2 insertions(+), 1 deletions(-)

M guix/build/gnu-build-system.scm

M guix/build/gnu-build-system.scm => guix/build/gnu-build-system.scm +2 -1
@@ 343,7 343,8 @@ makefiles."
              debug-output objcopy-command))
    (file-system-fold (const #t)
                      (lambda (path stat result)  ; leaf
                        (and (or (not debug-output)
                        (and (elf-file? path)
                             (or (not debug-output)
                                 (make-debug-file path))
                             (zero? (apply system* strip-command
                                           (append strip-flags (list path))))