02/02: gnu: perl: Add support for cross-compilation

[Ludovic Courtès]

civodul pushed a commit to branch master
in repository guix.

commit 5108c18e7e163c3b45568f1f4c3416581a2cea19
Author: Raphaël Mélotte <address@hidden>
Date:   Mon Sep 3 10:20:06 2018 +0200

    gnu: perl: Add support for cross-compilation
    
    * gnu/packages/perl.scm (perl): use cross-libc when cross-compiling
    
    Signed-off-by: Ludovic Courtès <address@hidden>
---
 gnu/packages/perl.scm | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/gnu/packages/perl.scm b/gnu/packages/perl.scm
index 4d70e01..b10be95 100644
--- a/gnu/packages/perl.scm
+++ b/gnu/packages/perl.scm
@@ -48,6 +48,7 @@
   #:use-module (guix utils) ;substitute-keyword-arguments for perl-5.26.2
   #:use-module (gnu packages base)
   #:use-module (gnu packages compression)
+  #:use-module (gnu packages cross-base)
   #:use-module (gnu packages freedesktop)
   #:use-module (gnu packages perl-check)
   #:use-module (gnu packages perl-web)
@@ -79,7 +80,7 @@
                        "perl-reproducible-build-date.patch"))))
     (build-system gnu-build-system)
     (arguments
-     '(#:tests? #f
+     `(#:tests? #f
        #:configure-flags
        (let ((out  (assoc-ref %outputs "out"))
              (libc (assoc-ref %build-inputs "libc")))
@@ -128,7 +129,10 @@
          (add-after 'install 'remove-extra-references
            (lambda* (#:key inputs outputs #:allow-other-keys)
              (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")
                                               "^Config_heavy\\.pl$")))
                     (config2 (find-files (string-append out "/lib/perl5")