summaryrefslogtreecommitdiff
path: root/guix/build
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2014-11-22 12:49:14 +0100
committerLudovic Courtès <ludo@gnu.org>2014-11-22 12:49:14 +0100
commit50b87bd54b7fd5fe5cb3482d7801d5e74d0c2fb3 (patch)
tree04a4e870b1a30b1bf5ade896c9ff030ff402c99e /guix/build
parent99533da50db89318c7ab7ae3e7a28c261fb88e84 (diff)
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.
Diffstat (limited to 'guix/build')
-rw-r--r--guix/build/gnu-build-system.scm3
1 files changed, 2 insertions, 1 deletions
diff --git a/guix/build/gnu-build-system.scm b/guix/build/gnu-build-system.scm
index afed601798..a8136063ef 100644
--- a/guix/build/gnu-build-system.scm
+++ b/guix/build/gnu-build-system.scm
@@ -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))))