nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

gnu: perl: Add support for cross-compilation 

* gnu/packages/perl.scm (perl): use cross-libc when cross-compiling

Signed-off-by: Ludovic Courtès <ludo@gnu.org>
This commit is contained in:
Raphaël Mélotte 2018-09-03 10:20:06 +02:00 committed by Ludovic Courtès
parent 38fe6449c0
commit 5108c18e7e
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
gnu/packages/perl.scm
View File

@ -48,6 +48,7 @@
#:use-module (guix utils) ;substitute-keyword-arguments for perl-5.26.2 #:use-module (guix utils) ;substitute-keyword-arguments for perl-5.26.2
#:use-module (gnu packages base) #:use-module (gnu packages base)
#:use-module (gnu packages compression) #:use-module (gnu packages compression)
#:use-module (gnu packages cross-base)
#:use-module (gnu packages freedesktop) #:use-module (gnu packages freedesktop)
#:use-module (gnu packages perl-check) #:use-module (gnu packages perl-check)
#:use-module (gnu packages perl-web) #:use-module (gnu packages perl-web)
@ -79,7 +80,7 @@
"perl-reproducible-build-date.patch")))) "perl-reproducible-build-date.patch"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
'(#:tests? #f `(#:tests? #f
#:configure-flags #:configure-flags
(let ((out (assoc-ref %outputs "out")) (let ((out (assoc-ref %outputs "out"))
(libc (assoc-ref %build-inputs "libc"))) (libc (assoc-ref %build-inputs "libc")))
@ -128,7 +129,10 @@
(add-after 'install 'remove-extra-references (add-after 'install 'remove-extra-references
(lambda* (#:key inputs outputs #:allow-other-keys) (lambda* (#:key inputs outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out")) (let* ((out (assoc-ref outputs "out"))
(libc (assoc-ref inputs "libc")) (libc (assoc-ref inputs
(if ,(%current-target-system)
"cross-libc"
"libc")))
(config1 (car (find-files (string-append out "/lib/perl5") (config1 (car (find-files (string-append out "/lib/perl5")
"^Config_heavy\\.pl$"))) "^Config_heavy\\.pl$")))
(config2 (find-files (string-append out "/lib/perl5") (config2 (find-files (string-append out "/lib/perl5")