From unknown Mon Aug 18 14:25:43 2025 Content-Disposition: inline Content-Transfer-Encoding: quoted-printable MIME-Version: 1.0 X-Mailer: MIME-tools 5.509 (Entity 5.509) Content-Type: text/plain; charset=utf-8 From: bug#47502 <47502@debbugs.gnu.org> To: bug#47502 <47502@debbugs.gnu.org> Subject: Status: perl build commencment Reply-To: bug#47502 <47502@debbugs.gnu.org> Date: Mon, 18 Aug 2025 21:25:43 +0000 retitle 47502 perl build commencment reassign 47502 guix submitter 47502 "testdellp23@yahoo.com" severity 47502 normal thanks From debbugs-submit-bounces@debbugs.gnu.org Tue Mar 30 13:52:21 2021 Received: (at submit) by debbugs.gnu.org; 30 Mar 2021 17:52:21 +0000 Received: from localhost ([127.0.0.1]:52786 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1lRIXF-00006e-Nx for submit@debbugs.gnu.org; Tue, 30 Mar 2021 13:52:21 -0400 Received: from lists.gnu.org ([209.51.188.17]:52074) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1lRIVy-0008Vx-Py for submit@debbugs.gnu.org; Tue, 30 Mar 2021 13:51:00 -0400 Received: from eggs.gnu.org ([2001:470:142:3::10]:46632) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1lRIVy-0006hQ-El for bug-guix@gnu.org; Tue, 30 Mar 2021 13:50:54 -0400 Received: from sonic311-14.consmr.mail.bf2.yahoo.com ([74.6.131.124]:33941) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_128_GCM_SHA256:128) (Exim 4.90_1) (envelope-from ) id 1lRIVt-0000jL-Vq for bug-guix@gnu.org; Tue, 30 Mar 2021 13:50:54 -0400 DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=yahoo.com; s=s2048; t=1617126646; bh=geRPJzxELEDg2JfIWHmevauZpTnkg5dL9coBUp8UhLw=; h=Date:From:To:Subject:References:From:Subject:Reply-To; b=n/WqmAaAdhdnZsDbW/zHZhlXK7tooTaW1eHt+/k532o9EqfT6eLZc1tefV9m109C1y7TcjD/EF9vZpMj6+t5VMTJndLfcdbL0koLrzLJwp2WTvbKR2iKe5EzohsGBO/gpqwin4MdhjtYFtOQYDtSM0lkZXVMIaJ7VcscmsHlXPVYA/VIBRpvKgYduijOq5brHmuT4ZxapqFhxYOCdHGDK/lh1yt4d5cFLtTSCyy3QEvzeR3JSv3gsz6d4WK222hJoLzxwvfI3ov9fBx1AkX3N8FV3zQPcnQQDBwnWmjMyNgaaMyZRe0QK8VENuCtEIpWF5PqUYkDr/5v/OaGrdFVPQ== X-SONIC-DKIM-SIGN: v=1; a=rsa-sha256; c=relaxed/relaxed; d=yahoo.com; s=s2048; t=1617126646; bh=OnK8EcfXrGllYzo+8tNU8ja7ben7aooKNKiVAZiV/nx=; h=X-Sonic-MF:Date:From:To:Subject:From:Subject; b=ev4KAhtG7IKrJCju0KXfnuRa7Tx5v8wKE3tvFShl7xn3a8HjUqPzt5RBWqet03lB4S2qoXTRWBliWcvSyOdmZWZCHUqFE2YZXNrw0tCJXnBexH2q0uGtKCXdOtYGRIUgryY6SIusFxZnsoTK8yEZ4JD+ZHdBU+E1I4OdjspVkenuWcV6KTTc8fdcBpVoVhxBDKBo0tI3GzjsEfGcT+2GMuDvhUNiHSEAvGWXF9YpPSwgyN16mpu0oTCy7K6xj0rZEaWel97ypj1aub/4mamyWjIH5grrRD6mlFy5VWF7JRU3uN3TEUkOndDTYPtFPh7WDRH6E2cnKOawIDS/FEPV6A== X-YMail-OSG: 1zmL29wVM1m.VwHUveuC5btifsYRpFhzn6GwkRZ4DeoZX8UxL_7ue7Z5d.kt23h AQNknu1ITMEHhq29o_eDkk.aP2opxF1ekbzqkGRdj14667Ec2be32i4m0Dq66klhR2LZrw_ckyAq HpIjgvYKTv7UMLFpUeeuviLr8d2pbkyeozsnx2cSyP_MmwEbdtJyfXiWYvST1nROGufhDthAqO3X zS7hIw6lHSwaDNSAM8Z3dBxFef11CF7QptHcCnFwQZhmlzOY_jo0q1bB.OF1V_byczv7TZvvjPpy eaUOGQI6hm4tvNRzS8dpm6v3o2nf2ediOQ8IdGjwFDmZxVwRIvxhK2sT4H0s2ANsLlsb01mp6AzY 40p3pnY7tvlAVE_zEJhT2iOFBWhIx29fq7UTtLRa6e3.xanQ62bUa1UvoxcodK0Ldzt.spBdHk7q bhuvas4z30a_bQl97_nURk43NnBzgVM7xxTKzabCZiRZ0ljFbCw7esTfteJyGCu.CPjnsXy7G0kh 2u0ONHvJt4Uj5qKAWGVGq7Ns3GvPANRg6jMtWtlqQbaKPOh.WYY11X0HBzjnIBK38Hq1lLCj38TR .fYxLtPNMo5yX.fT9zRdvtSF3RaiF.G4IxGD5FUhJQRdZDjZW34Zt61yV2gLdAU.oxsMCBbExPYP wlw8BTcCO58Z6KlkjwIUvnFyE7HPS267a8tRzvo0ACSesOD6iye5PzInwnf3CGxT7mpO87_4URGQ nn.vl3Ft39X3tZ_R3XAjXk4KCHnJU._S00nkIRt21m3SL8QZRG5egJWu8z0hgZFqnIrRpMVgcwK. ViHjsGZIV76sY_w7UcFRf1pgSZy4IgOZ5vO0ZA5E9gNKsM733XxK.tXnHEGRLr3vXWHUDnmOs4L0 9GuD1xdjyKmTM5bu1kqIgiZoCHyxjkGg6u2Dphq7Nd.FdkJkn7.jirBfZ_JuB47zZGRbjrx.y4px qk_jDPrIYBoQWinOdDMEeP0RQa3uRLywMXSA7KYspiUNTRdHDdYKPAbg5JC9Y15hYA0qT2O1wAWG bD4AT22DbzrCmqnOW1lzYVVNYBc4F354qI_hOp0.CkXt9NL_3FtEWEd6X72Iyick6o3kos57cqOJ xdppEWDXAwY6ojX2LydeKXzeob8h6ZoCfhBSe8hU55uPV.CV2SgQ6CT3xi4murEBXtVU3AVCzavu uWKxfb5xxV7TVqerSPcSeQbEK6FaG32xWsf53JP57Po4JKORsf6bQrjJjmEj36DEk6HPyadh4BNu 7yPVc7w0SPFAxtzl4Vu3U.o_J8c6GT9OsOyWGzqNl094WZLs9LQQhAlEVBqVPBs49Q7Czzr0RZWC g30CHJz30Ig7tATqOZLQwNNWwJOCNa6wqz7kUf4V3FB.mu9_wRDtBiMVjAuKHUwwslR8caHvZLmp 85_uj8YLc9h9UE_hA.nvk2vXcVhHPclLFFUYzqFKOrP.LCrFS.Qb4.YaAnjbNn6Cs0oE.7AhR0O6 vkbXypvfTwHoGVk3WbP3wqu1dVK7b1R_gaH6QaS1BIP_s71NVJMlN5Tj6z4Ee2ivVBTtUf6e7j88 Yf0_EitvR.YONBs1qqZx1C1SUWj9CrlHxoEVaK6I6JQmhZqbjKkDJD_dvjxAgrAmJFmSSGCYspWv U3vC28tCxr.TTxdRS6cMe0EWpa2bH6FAImUOwyhhouf2LVjfoKyQr7RGUOFpO2UODSp56TIGl83d vtKGdmYkDLmeBHvxF_e3jmXke_zxpLKsoF_E6bFHasEWc157IOT4bNdbb.awlLz7DHfJYBdW4RxR a8JgdcpxxpWYH10tjU0_IukLGWpSnjpKHsD1sPBZd03TyUL8JRWvhicxbO68uwZL9L60T4TgjzAI lQhhAQfmFYQrZ7rfI7v8W9r7RUip5zFN.sNVKWrPiE.z.jk6edQ3q8P.nu1vRPIlnpm5jTh0iyDx hgvlifKsgqlvAlnoMOHO7LNnSkYeOBsPWymVoErQ.sjHmiT7HVu_td8p03Yo1kUsFTJrcf02vooS lbfDKQC8Q431CmVUYClRgUrirHl3CjGTENh5rjhVlXxCjnkLegmEVxHl83dY6eO_Cab1HsGQt4AJ Dh6kh4Ig10KbQg_hJJYa2elLXwLQdHgLLB6DyRmS3DniYSk7K__w_7MJ9Hbzbmh3jTWSTZWCS.ln xT8vtMww0K2.gkGD7h0ifyPKoeZ2MOBAB9j22sNzQo0ozW6Egu_cWIYbAV4RlqKamnpg7eoS8oNF 8noorl3r5CxN4l49WGmpGjr2JB0QeRwtigtJD6lWWf7G2QdgvNt6hbAAimQcoLFQZYyMxOrwC2iA B2czedHp04Dg3zNZK.LUXIB5e3cNm9RX3KS0zkXcavim4_8zX_DKjqeoiRvOmhKZ_14z_DY.i9Lm fwKJtIXsdP0lRfv9kGB.tdPR9cVgY4.q8jw-- X-Sonic-MF: Received: from sonic.gate.mail.ne1.yahoo.com by sonic311.consmr.mail.bf2.yahoo.com with HTTP; Tue, 30 Mar 2021 17:50:46 +0000 Date: Tue, 30 Mar 2021 16:52:36 +0000 (UTC) From: "testdellp23@yahoo.com" To: "bug-guix@gnu.org" Message-ID: <1666093816.1138243.1617123156582@mail.yahoo.com> Subject: perl build commencment MIME-Version: 1.0 Content-Type: multipart/alternative; boundary="----=_Part_1138242_609307811.1617123156576" References: <1666093816.1138243.1617123156582.ref@mail.yahoo.com> X-Mailer: WebService/1.1.17936 YMailNorrin Mozilla/5.0 (X11; Linux x86_64; rv:87.0) Gecko/20100101 Firefox/87.0 Content-Length: 71817 Received-SPF: pass client-ip=74.6.131.124; envelope-from=testdellp23@yahoo.com; helo=sonic311-14.consmr.mail.bf2.yahoo.com X-Spam_score_int: -17 X-Spam_score: -1.8 X-Spam_bar: - X-Spam_report: (-1.8 / 5.0 requ) BAYES_00=-1.9, DKIM_SIGNED=0.1, DKIM_VALID=-0.1, DKIM_VALID_AU=-0.1, DKIM_VALID_EF=-0.1, FREEMAIL_ENVFROM_END_DIGIT=0.25, FREEMAIL_FROM=0.001, HTML_MESSAGE=0.001, RCVD_IN_DNSWL_NONE=-0.0001, RCVD_IN_MSPIKE_H2=-0.001, SPF_HELO_NONE=0.001, SPF_PASS=-0.001 autolearn=ham autolearn_force=no X-Spam_action: no action X-Spam-Score: 3.9 (+++) X-Spam-Report: Spam detection software, running on the system "debbugs.gnu.org", has NOT identified this incoming email as spam. The original message has been attached to this so you can view it or label similar future email. If you have any questions, see the administrator of that system for details. Content preview: I am trying to build a updated skeleton version of perl in a GUIX_PACKAGE-PATH folder, tweaking as necessary. I set up an inferior to add necessary packages. When I try to bulid the package,  i get t [...] Content analysis details: (3.9 points, 10.0 required) pts rule name description ---- ---------------------- -------------------------------------------------- 0.2 FREEMAIL_ENVFROM_END_DIGIT Envelope-from freemail username ends in digit (testdellp23[at]yahoo.com) 1.0 FORGED_YAHOO_RCVD 'From' yahoo.com does not match 'Received' headers 2.0 PDS_OTHER_BAD_TLD Untrustworthy TLDs [URI: ambrevar.xyz (xyz)] -0.0 SPF_HELO_PASS SPF: HELO matches SPF record 0.0 FREEMAIL_FROM Sender email is commonly abused enduser mail provider (testdellp23[at]yahoo.com) 0.7 SPF_NEUTRAL SPF: sender does not match SPF record (neutral) 0.0 RCVD_IN_MSPIKE_H4 RBL: Very Good reputation (+4) [209.51.188.17 listed in wl.mailspike.net] 0.0 HTML_MESSAGE BODY: HTML included in message 0.0 RCVD_IN_MSPIKE_WL Mailspike good senders X-Debbugs-Envelope-To: submit X-Mailman-Approved-At: Tue, 30 Mar 2021 13:52:12 -0400 X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: debbugs-submit-bounces@debbugs.gnu.org Sender: "Debbugs-submit" X-Spam-Score: 2.9 (++) X-Spam-Report: Spam detection software, running on the system "debbugs.gnu.org", has NOT identified this incoming email as spam. The original message has been attached to this so you can view it or label similar future email. If you have any questions, see the administrator of that system for details. Content preview: I am trying to build a updated skeleton version of perl in a GUIX_PACKAGE-PATH folder, tweaking as necessary. I set up an inferior to add necessary packages. When I try to bulid the package,  i get t [...] Content analysis details: (2.9 points, 10.0 required) pts rule name description ---- ---------------------- -------------------------------------------------- 0.2 FREEMAIL_ENVFROM_END_DIGIT Envelope-from freemail username ends in digit (testdellp23[at]yahoo.com) 1.0 FORGED_YAHOO_RCVD 'From' yahoo.com does not match 'Received' headers 2.0 PDS_OTHER_BAD_TLD Untrustworthy TLDs [URI: ambrevar.xyz (xyz)] -0.0 SPF_HELO_PASS SPF: HELO matches SPF record 0.0 FREEMAIL_FROM Sender email is commonly abused enduser mail provider (testdellp23[at]yahoo.com) 0.7 SPF_NEUTRAL SPF: sender does not match SPF record (neutral) 0.0 RCVD_IN_MSPIKE_H4 RBL: Very Good reputation (+4) [209.51.188.17 listed in wl.mailspike.net] 0.0 HTML_MESSAGE BODY: HTML included in message 0.0 RCVD_IN_MSPIKE_WL Mailspike good senders -1.0 MAILING_LIST_MULTI Multiple indicators imply a widely-seen list manager ------=_Part_1138242_609307811.1617123156576 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: quoted-printable I am trying to build a updated skeleton version of perl in a GUIX_PACKAGE-P= ATH folder, tweaking as necessary. I set up an inferior to add necessary pa= ckages. When I try to bulid the package,=C2=A0 i get this error =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0:~/= .config/guix/local$ guix build -f perl_barebones.scm -K Updating channel 'guix' from Git repository at 'https://git.savannah.gnu.or= g/git/guix.git'... gnu/packages/commencement.scm:2932:30: error: perl: unbound variable hint: Did you forget `(use-modules (gnu packages perl))'? =C2=A0i Have tried to modify the perl_barebones file so that that doesn't h= appen but it Appears there isn't a way to make perl available to the commen= cement file to build the bootstrap perl to build perl. It appears there is = a flaw in the commencement file. I tried updating guix, and checking with r= epl to see if it was something else. https://www.reddit.com/r/GUIX/comments= /l5b1r9/guile_question_inheritance/ I've checked, r/GUIX the IRC and mailing list archives, so i'm pretty sure = this a bug, or at least not a known issue. I apologize in advance if this a= problem with what i did. perl_barebone.scm full text: ;;; GNU Guix --- Functional package management for GNU ;;; Copyright =C2=A9 2012, 2013, 2014, 2015, 2016, 2017 Ludovic Court=C3=A8= s ;;; Copyright =C2=A9 2013, 2019, 2020 Andreas Enge ;;; Copyright =C2=A9 2015, 2016, 2017, 2019, 2021 Ricardo Wurmus ;;; Copyright =C2=A9 2015, 2016, 2017, 2019, 2020 Eric Bavier ;;; Copyright =C2=A9 2015 Eric Dvorsak ;;; Copyright =C2=A9 2016, 2018 Mark H Weaver ;;; Copyright =C2=A9 2016 Jochem Raat ;;; Copyright =C2=A9 2016, 2017, 2018, 2019, 2020 Efraim Flashner ;;; Copyright =C2=A9 2016 Nikita ;;; Copyright =C2=A9 2016 Alex Sassmannshausen ;;; Copyright =C2=A9 2016, 2018, 2020 Roel Janssen ;;; Copyright =C2=A9 2016 Ben Woodcroft ;;; Copyright =C2=A9 2016, 2020 Jan (janneke) Nieuwenhuizen ;;; Copyright =C2=A9 2017 Raoul J.P. Bonnal ;;; Copyright =C2=A9 2017, 2018 Marius Bakke ;;; Copyright =C2=A9 2017 Adriano Peluso ;;; Copyright =C2=A9 2017, 2018, 2019, 2020 Tobias Geerinckx-Rice ;;; Copyright =C2=A9 2017 Leo Famulari ;;; Copyright =C2=A9 2017 Christopher Allan Webber ;;; Copyright =C2=A9 2018, 2019 Oleg Pykhalov ;;; Copyright =C2=A9 2018, 2019 Pierre Neidhardt ;;; Copyright =C2=A9 2018 Kei Kebreau ;;; Copyright =C2=A9 2019 Alex Griffin ;;; Copyright =C2=A9 2019 Mathieu Othacehe ;;; Copyright =C2=A9 2019 Stephen J. Scheck ;;; Copyright =C2=A9 2020 Vincent Legoll ;;; Copyright =C2=A9 2020 Paul Garlick ;;; Copyright =C2=A9 2020 Nicolas Goaziou ;;; Copyright =C2=A9 2020 Malte Frank Gerdes ;;; Copyright =C2=A9 2021 Maxim Cournoyer ;;; ;;; This file is part of GNU Guix. ;;; ;;; GNU Guix is free software; you can redistribute it and/or modify it ;;; under the terms of the GNU General Public License as published by ;;; the Free Software Foundation; either version 3 of the License, or (at ;;; your option) any later version. ;;; ;;; GNU Guix is distributed in the hope that it will be useful, but ;;; WITHOUT ANY WARRANTY; without even the implied warranty of ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.=C2=A0 See the ;;; GNU General Public License for more details. ;;; ;;; You should have received a copy of the GNU General Public License ;;; along with GNU Guix.=C2=A0 If not, see . ;;; Test version to have updated package refrences (define-module (gnu packages perl) =C2=A0 #:use-module (guix inferior) =C2=A0 #:use-module (guix channels) =C2=A0 #:use-module (gnu packages package-management) =C2=A0 ;; #:use-module (gnu packages perl) =C2=A0 #:use-module (srfi srfi-1) =C2=A0 #:use-module ((guix licenses) #:prefix license:) =C2=A0 #:use-module (gnu packages) =C2=A0 #:use-module (guix packages) =C2=A0 #:use-module (guix download) =C2=A0 #:use-module (guix git-download) =C2=A0 #:use-module (guix utils) =C2=A0 #:use-module (guix build-system gnu) =C2=A0 #:use-module (guix build-system perl) =C2=A0 #:use-module (gnu packages base) =C2=A0 #:use-module (gnu packages bash) =C2=A0 #:use-module (gnu packages compression) =C2=A0 #:use-module (gnu packages databases) =C2=A0 #:use-module (gnu packages fontutils) =C2=A0 #:use-module (gnu packages freedesktop) =C2=A0 #:use-module (gnu packages gd) =C2=A0 #:use-module (gnu packages gl) =C2=A0 #:use-module (gnu packages gtk) =C2=A0 #:use-module (gnu packages hurd) =C2=A0 #:use-module (gnu packages image) =C2=A0 #:use-module (gnu packages less) =C2=A0 #:use-module (gnu packages ncurses) =C2=A0 #:use-module (gnu packages perl-check) =C2=A0 #:use-module (gnu packages perl-compression) =C2=A0 #:use-module (gnu packages perl-web) =C2=A0 #:use-module (gnu packages pkg-config) =C2=A0 #:use-module (gnu packages readline) =C2=A0 #:use-module (gnu packages sdl) =C2=A0 #:use-module (gnu packages textutils) =C2=A0 #:use-module (gnu packages video) =C2=A0 #:use-module (gnu packages web) =C2=A0 #:use-module (gnu packages xorg)) ;;; ;;; Please: Try to add new module packages in alphabetic order. ;;; ;;; In order to make this work outside of the primary channel We need to cr= eate a inferior for the channel packages we need. ;;; First we need to define the channel(s) (define channels =C2=A0=C2=A0 =C2=A0(list (channel=20 =C2=A0=C2=A0 =C2=A0=C2=A0=C2=A0 =C2=A0(name `guix) =C2=A0=C2=A0 =C2=A0=C2=A0=C2=A0 =C2=A0(url "https://git.savannah.gnu.org/gi= t/guix.git") =C2=A0=C2=A0 =C2=A0=C2=A0=C2=A0 =C2=A0(commit "414fc58cef4eb9c2cc18a381629d= 17c5adf76210") =C2=A0=C2=A0 =C2=A0))) (use-modules (gnu packages perl)) (define inferior=20 =C2=A0=C2=A0 =C2=A0(inferior-for-channels channels) ) (packages->manifest =C2=A0=C2=A0 =C2=A0(list (first (lookup-inferior-packages inferior "perl") =C2=A0=C2=A0 =C2=A0(lookup-inferior-packages inferior "readline") =C2=A0=C2=A0 =C2=A0(lookup-inferior-packages inferior "bash") =C2=A0=C2=A0 =C2=A0)) ) (define-public perl =C2=A0 ;; Yeah, Perl...=C2=A0 It is required early in the bootstrap process= by Linux. =C2=A0 (package =C2=A0=C2=A0=C2=A0 (name "perl") =C2=A0=C2=A0=C2=A0 (version "5.32.1") =C2=A0=C2=A0=C2=A0 (source (origin =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 (m= ethod url-fetch) =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 (u= ri (string-append "mirror://cpan/src/5.0/perl-" =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0= =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 version ".tar.gz")) =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 (s= ha256 =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0 (base32 =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0 "0b7brakq9xs4vavhg391as50nbhzryc7fy5i65r81bnq3j897dh3")) =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 (p= atches (search-patches =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 "perl-no-sys-dirs= .patch" =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 "perl-autosplit-d= efault-time.patch" =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 "perl-determinist= ic-ordering.patch" =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 "perl-reproducibl= e-build-date.patch")))) =C2=A0=C2=A0=C2=A0 (build-system gnu-build-system) =C2=A0=C2=A0=C2=A0 (arguments =C2=A0=C2=A0=C2=A0=C2=A0 `(#:tests? #f =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 #:configure-flags =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 (let ((out=C2=A0 (assoc-ref %outputs "= out")) =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 (l= ibc (assoc-ref %build-inputs "libc"))) =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 (list =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 (string-append "-Dpr= efix=3D" out) =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 (string-append "-Dma= n1dir=3D" out "/share/man/man1") =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 (string-append "-Dma= n3dir=3D" out "/share/man/man3") =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 "-de" "-Dcc=3Dgcc" =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 "-Uinstallusrbinperl= " =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 "-Dinstallstyle=3Dli= b/perl5" =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 "-Duseshrplib" =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 (string-append "-Dlo= cincpth=3D" libc "/include") =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 (string-append "-Dlo= clibpth=3D" libc "/lib") =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 "-Dusethreads")) =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 #:phases =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 (modify-phases %standard-phases =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 (add-before 'configure 'se= tup-configure =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 (lambda _ =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 ;;= Use the right path for `pwd'. =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 ;;= TODO: use coreutils from INPUTS instead of 'which' =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 ;;= in next rebuild cycle, see fixup below. =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 (s= ubstitute* "dist/PathTools/Cwd.pm" =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0 (("/bin/pwd") =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0=C2=A0 (which "pwd"))) =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 ;;= Build in GNU89 mode to tolerate C++-style comment in libc's =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 ;;= . =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 (s= ubstitute* "cflags.SH" =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0 (("-std=3Dc89") =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0=C2=A0 "-std=3Dgnu89")) =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 #t= )) =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 ,@(if (%current-target-sys= tem) =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0 `((add-after 'unpack 'unpack-cross =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 (lambda* (#:key native-inputs inputs #:al= low-other-keys) =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 (let ((cross-checkout =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0= =C2=A0=C2=A0 (assoc-ref native-inputs "perl-cross")) =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0= =C2=A0 (cross-patch =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0= =C2=A0=C2=A0 (assoc-ref native-inputs "perl-cross-patch"))) =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 (rename-file "Art= istic" "Artistic.perl") =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 (rename-file "Cop= ying" "Copying.perl") =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 (copy-recursively= cross-checkout ".") =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 (format #t "Apply= ing ~a\n" cross-patch) =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 (invoke "patch" "= -p1" "-i" cross-patch)) =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 (let ((bash (assoc-ref inputs= "bash"))) =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 (substitute* '("M= akefile.config.SH" =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0= =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 "c= nf/config.guess" =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0= =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 "c= nf/config.sub" =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0= =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 "c= nf/configure" =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0= =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 "c= nf/configure_misc.sh" =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0= =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 "m= iniperl_top") =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 (("! = */bin/sh") (string-append "! " bash "/bin/bash")) =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 ((" /= bin/sh") (string-append bash "/bin/bash"))) =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 (substitute* '("e= xt/Errno/Errno_pm.PL") =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 (("\\= $cpp < errno.c") "$Config{cc} -E errno.c"))) =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 #t)) =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0=C2=A0=C2=A0 (replace 'configure =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 (lambda* (#:key configure-flags outputs i= nputs #:allow-other-keys) =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 (let* ((out (assoc-ref output= s "out")) =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0= =C2=A0=C2=A0 (store-directory (%store-directory)) =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0= =C2=A0=C2=A0 (configure-flags =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0= =C2=A0=C2=A0=C2=A0 (cons* =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0= =C2=A0=C2=A0=C2=A0=C2=A0 ;; `perl-cross' confuses target and host =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0= =C2=A0=C2=A0=C2=A0=C2=A0 (string-append "--target=3D" ,(%current-target-sys= tem)) =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0= =C2=A0=C2=A0=C2=A0=C2=A0 (string-append "--prefix=3D" out) =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0= =C2=A0=C2=A0=C2=A0=C2=A0 (string-append "-Dcc=3D" ,(%current-target-system)= "-gcc") =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0= =C2=A0=C2=A0=C2=A0=C2=A0 "-Dbyteorder=3D1234" =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0= =C2=A0=C2=A0=C2=A0=C2=A0 (filter (negate =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0= =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0 (lambda (x) (or (string-prefix? "-d" x) =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0= =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0= =C2=A0=C2=A0=C2=A0=C2=A0 (string-prefix? "-Dcc=3D" x)))) =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0= =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 co= nfigure-flags))) =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0= =C2=A0=C2=A0 (bash (assoc-ref inputs "bash")) =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0= =C2=A0=C2=A0 (coreutils (assoc-ref inputs "coreutils"))) =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 (format (current-= error-port) =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0= =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 "running ./configure ~a\n" (string-join conf= igure-flags)) =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 (apply invoke (co= ns "./configure" configure-flags)) =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 (substitute* "con= fig.sh" =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 (((st= ring-append store-directory "/[^/]*-bash-[^/]*")) =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0= bash)) =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 (substitute* '("c= onfig.h") =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 (("^#= define SH_PATH .*") =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0= (string-append=C2=A0 "#define SH_PATH \"" bash "/bin/bash\"\n"))) =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 ;;TODO: fix this = in setup-configure next rebuild cycle =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 (substitute* "dis= t/PathTools/Cwd.pm" =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 (((st= ring-append store-directory "/[^/]*-coreutils-[^/]*")) =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0= coreutils)) =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 #t))) =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0=C2=A0=C2=A0 (add-after 'build 'touch-non-built-files-for-install =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 (lambda _ =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 ;; `make install' wants to in= stall these although they do =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 ;; not get built... =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 (with-directory-excursion "cp= an" =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 (mkdir-p "Pod-Usa= ge/blib/script") =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 (mkdir-p "Pod-Par= ser/blib/script") =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 (for-each (lambda= (file) =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0= =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 (call-with-output-fi= le file =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0= =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 (lambda = (port) (display "" port)))) =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0= =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 '("Pod-Usage/blib/script/pod2tex= t" =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0= =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 "Pod-Usage/blib/scri= pt/pod2usage" =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0= =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 "Pod-Checker/blib/sc= ript/podchecker" =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0= =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 "Pod-Parser/blib/scr= ipt/podselect"))) =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 #t))) =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0 `((replace 'configure =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 (lambda* (#:key configure-flags #:allow-o= ther-keys) =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 (format #t "Perl configure fl= ags: ~s~%" configure-flags) =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 (apply invoke "./Configure" c= onfigure-flags))))) =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 (add-after 'install 'remov= e-extra-references =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 (lambda* (#:ke= y inputs outputs #:allow-other-keys) =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 (l= et* ((out=C2=A0=C2=A0=C2=A0=C2=A0 (assoc-ref outputs "out")) =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 (libc=C2=A0=C2=A0=C2=A0 (assoc-ref = inputs =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0= =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0 ,(if (%current-target-system) =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0= =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 "cross-libc" "libc"))) =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 (config1 (car (find-files (string-a= ppend out "/lib/perl5") =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0= =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 "^Config_heavy\\.pl$"))) =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 (config2 (find-files (string-append= out "/lib/perl5") =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0= =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0=C2=A0 "^Config\\.pm$"))) =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0 ;; Force the library search path to contain only libc because =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0 ;; it is recorded in Config.pm and Config_heavy.pl; we don't =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0 ;; want to keep a reference to everything that's in =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0 ;; $LIBRARY_PATH at build time (GCC, Binutils, bzip2, file, =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0 ;; etc.) =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0 (substitute* config1 =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0=C2=A0=C2=A0 (("^incpth=3D.*$") =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0=C2=A0=C2=A0=C2=A0 (string-append "incpth=3D'" libc "/include'\n")= ) =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0=C2=A0=C2=A0 (("^(libpth|plibpth|libspath)=3D.*$" _ variable) =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0=C2=A0=C2=A0=C2=A0 (string-append variable "=3D'" libc "/lib'\n"))= ) =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0 (for-each (lambda (file) =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0= =C2=A0 (substitute* config2 =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0= =C2=A0=C2=A0=C2=A0 (("libpth =3D> .*$") =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0= =C2=A0=C2=A0=C2=A0=C2=A0 (string-append "libpth =3D> '" libc =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0= =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 "/lib',\n")))) =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 confi= g2) =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0 #t)))))) =C2=A0=C2=A0=C2=A0 (inputs =C2=A0=C2=A0=C2=A0=C2=A0 (if (%current-target-system) =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 `(("bash" ,bash-minimal) =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 ("coreutils" ,= coreutils)) =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 '())) =C2=A0=C2=A0=C2=A0 (native-inputs =C2=A0=C2=A0=C2=A0=C2=A0 (if (%current-target-system) =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 `(("perl-cross" =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 ,(origin =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0 (method git-fetch) =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0 (uri (git-reference =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 (url "https://github.com/arsv= /perl-cross") =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 (commit "1.3.5"))) =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0 (file-name (git-file-name "perl-cross" "1.3.5")) =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0 (sha256 =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0=C2=A0 (base32 "09ggs8m8qya92klmjqs5z6c0q2rqfyv60ip1zvaczz4r5dmnzi= li")))) =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 ("perl-cross-p= atch" ,@(search-patches "perl-cross.patch"))) =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 '())) =C2=A0=C2=A0=C2=A0 (native-search-paths (list (search-path-specification =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0= =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 (variable "PERL5LIB") =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0= =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 (files '("lib/perl5/site_perl"))))) =C2=A0=C2=A0=C2=A0 (synopsis "Implementation of the Perl programming langua= ge") =C2=A0=C2=A0=C2=A0 (description =C2=A0=C2=A0=C2=A0=C2=A0 "Perl is a general-purpose programming language or= iginally developed for text manipulation and now used for a wide range of tasks including system administration, web development, network programming, GUI development, and more.") =C2=A0=C2=A0=C2=A0 (home-page "https://www.perl.org/") =C2=A0=C2=A0=C2=A0 (license license:gpl1+)))=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0= =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 ; or "Artistic" (define-public perl-ipc-system-simple =C2=A0 (package =C2=A0=C2=A0=C2=A0 (name "perl-ipc-system-simple") =C2=A0=C2=A0=C2=A0 (version "1.30") =C2=A0=C2=A0=C2=A0 (source (origin =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0 (method url-fetch) =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0 (uri (string-append =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 "mirror://cpan/authors/id/J/JK/JKEE= NAN/IPC-System-Simple-" =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 version ".tar.gz")) =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0 (sha256 =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0 (base32 =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0=C2=A0 "17msx650m9r3m6j5r3mr742vism1nxda7p4g0l9yapjh5cigbri2")))) =C2=A0=C2=A0=C2=A0 (build-system perl-build-system) =C2=A0=C2=A0=C2=A0 (home-page "https://metacpan.org/release/IPC-System-Simp= le") =C2=A0=C2=A0=C2=A0 (synopsis "Run commands simply, with detailed diagnostic= s") =C2=A0=C2=A0=C2=A0 (description "Calling Perl's in-built @code{system} func= tion is easy, determining if it was successful is hard.=C2=A0 Let's face it, @code{$?} is= n't the nicest variable in the world to play with, and even if you do check it, producing a well-formatted error string takes a lot of work. @code{IPC::System::Simple} takes the hard work out of calling external commands.") =C2=A0=C2=A0=C2=A0 (license (package-license perl)))) perl perl-ipc-system-simple ------=_Part_1138242_609307811.1617123156576 Content-Type: text/html; charset=UTF-8 Content-Transfer-Encoding: quoted-printable
I am trying to build a u= pdated skeleton version of perl in a GUIX_PACKAGE-PATH folder, tweaking as = necessary. I set up an inferior to add necessary packages. When I try to bu= lid the package,  i get this error

     &nbs= p;      :~/.config/guix/local$ guix build -f = perl_barebones.scm -K
Updating channel 'guix' from Git repository at 'ht= tps://git.savannah.gnu.org/git/guix.git'...
gnu/packages/commencement.sc= m:2932:30: error: perl: unbound variable
hint: Did you forget `(use= -modules (gnu packages perl))'?

 i Have tried to modify the perl_barebones file = so that that doesn't happen but it Appears there isn't a way to make perl a= vailable to the commencement file to build the bootstrap perl to build perl= . It appears there is a flaw in the commencement file. I tried updating gui= x, and checking with repl to see if it was something else. https://www.reddit.com/r/GUIX/co= mments/l5b1r9/guile_question_inheritance/

I've checked, r/GUIX the IRC and mailing lis= t archives, so i'm pretty sure this a bug, or at least not a known issue. I= apologize in advance if this a problem with what i did.

= perl_barebone.scm full text:


;;; GNU Guix --- Functional package ma= nagement for GNU
;;; Copyright =C2=A9 2012, 2013, 2014, 2015, 2016, 2017= Ludovic Court=C3=A8s <ludo@gnu.org>
;;; Copyright =C2=A9 2013, 20= 19, 2020 Andreas Enge <andreas@enge.fr>
;;; Copyright =C2=A9 2015,= 2016, 2017, 2019, 2021 Ricardo Wurmus <rekado@elephly.net>
;;; Co= pyright =C2=A9 2015, 2016, 2017, 2019, 2020 Eric Bavier <bavier@posteo.n= et>
;;; Copyright =C2=A9 2015 Eric Dvorsak <eric@dvorsak.fr>;;; Copyright =C2=A9 2016, 2018 Mark H Weaver <mhw@netris.org>
;;= ; Copyright =C2=A9 2016 Jochem Raat <jchmrt@riseup.net>
;;; Copyri= ght =C2=A9 2016, 2017, 2018, 2019, 2020 Efraim Flashner <efraim@flashner= .co.il>
;;; Copyright =C2=A9 2016 Nikita <nikita@n0.is>
;;; = Copyright =C2=A9 2016 Alex Sassmannshausen <alex@pompo.co>
;;; Cop= yright =C2=A9 2016, 2018, 2020 Roel Janssen <roel@gnu.org>
;;; Cop= yright =C2=A9 2016 Ben Woodcroft <donttrustben@gmail.com>
;;; Copy= right =C2=A9 2016, 2020 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>=
;;; Copyright =C2=A9 2017 Raoul J.P. Bonnal <ilpuccio.febo@gmail.com= >
;;; Copyright =C2=A9 2017, 2018 Marius Bakke <mbakke@fastmail.co= m>
;;; Copyright =C2=A9 2017 Adriano Peluso <catonano@gmail.com>= ;
;;; Copyright =C2=A9 2017, 2018, 2019, 2020 Tobias Geerinckx-Rice <= me@tobias.gr>
;;; Copyright =C2=A9 2017 Leo Famulari <leo@famulari= .name>
;;; Copyright =C2=A9 2017 Christopher Allan Webber <cwebber= @dustycloud.org>
;;; Copyright =C2=A9 2018, 2019 Oleg Pykhalov <go= .wigust@gmail.com>
;;; Copyright =C2=A9 2018, 2019 Pierre Neidhardt &= lt;mail@ambrevar.xyz>
;;; Copyright =C2=A9 2018 Kei Kebreau <kkebr= eau@posteo.net>
;;; Copyright =C2=A9 2019 Alex Griffin <a@ajgrf.co= m>
;;; Copyright =C2=A9 2019 Mathieu Othacehe <m.othacehe@gmail.co= m>
;;; Copyright =C2=A9 2019 Stephen J. Scheck <sscheck@cpan.org&g= t;
;;; Copyright =C2=A9 2020 Vincent Legoll <vincent.legoll@gmail.com= >
;;; Copyright =C2=A9 2020 Paul Garlick <pgarlick@tourbillion-tec= hnology.com>
;;; Copyright =C2=A9 2020 Nicolas Goaziou <mail@nicol= asgoaziou.fr>
;;; Copyright =C2=A9 2020 Malte Frank Gerdes <malte.= f.gerdes@gmail.com>
;;; Copyright =C2=A9 2021 Maxim Cournoyer <max= im.cournoyer@gmail.com>
;;;
;;; This file is part of GNU Guix.
= ;;;
;;; GNU Guix is free software; you can redistribute it and/or modify= it
;;; under the terms of the GNU General Public License as published b= y
;;; the Free Software Foundation; either version 3 of the License, or = (at
;;; your option) any later version.
;;;
;;; GNU Guix is distri= buted in the hope that it will be useful, but
;;; WITHOUT ANY WARRANTY; = without even the implied warranty of
;;; MERCHANTABILITY or FITNESS FOR = A PARTICULAR PURPOSE.  See the
;;; GNU General Public License for m= ore details.
;;;
;;; You should have received a copy of the GNU Gener= al Public License
;;; along with GNU Guix.  If not, see <http://= www.gnu.org/licenses/>.
;;; Test version to have updated package refr= ences

(define-module (gnu packages perl)
  #:use-module (gui= x inferior)
  #:use-module (guix channels)
  #:use-module (= gnu packages package-management)
  ;; #:use-module (gnu packages pe= rl)
  #:use-module (srfi srfi-1)
  #:use-module ((guix lice= nses) #:prefix license:)
  #:use-module (gnu packages)
  #:= use-module (guix packages)
  #:use-module (guix download)
 = #:use-module (guix git-download)
  #:use-module (guix utils)
&n= bsp; #:use-module (guix build-system gnu)
  #:use-module (guix buil= d-system perl)
  #:use-module (gnu packages base)
  #:use-m= odule (gnu packages bash)
  #:use-module (gnu packages compression)=
  #:use-module (gnu packages databases)
  #:use-module (gn= u packages fontutils)
  #:use-module (gnu packages freedesktop)
=   #:use-module (gnu packages gd)
  #:use-module (gnu packages = gl)
  #:use-module (gnu packages gtk)
  #:use-module (gnu p= ackages hurd)
  #:use-module (gnu packages image)
  #:use-m= odule (gnu packages less)
  #:use-module (gnu packages ncurses)
=   #:use-module (gnu packages perl-check)
  #:use-module (gnu p= ackages perl-compression)
  #:use-module (gnu packages perl-web)  #:use-module (gnu packages pkg-config)
  #:use-module (gnu = packages readline)
  #:use-module (gnu packages sdl)
  #:us= e-module (gnu packages textutils)
  #:use-module (gnu packages vide= o)
  #:use-module (gnu packages web)
  #:use-module (gnu pa= ckages xorg))

;;;
;;; Please: Try to add new module packages in a= lphabetic order.
;;;
=0C


;;; In order to make this work ou= tside of the primary channel We need to create a inferior for the channel p= ackages we need.
;;; First we need to define the channel(s)

(defi= ne channels
    (list (channel
    &nb= sp;   (name `guix)
        (url = "https://git.savannah.gnu.org/git/guix.git")
     &n= bsp;  (commit "414fc58cef4eb9c2cc18a381629d17c5adf76210")
 &nb= sp;  )))
(use-modules (gnu packages perl))

(define inferior =
    (inferior-for-channels channels)
)
(packages-&= gt;manifest
    (list (first (lookup-inferior-packages in= ferior "perl")
    (lookup-inferior-packages inferior "re= adline")
    (lookup-inferior-packages inferior "bash")    ))
)

(define-public perl
  ;; Yeah, = Perl...  It is required early in the bootstrap process by Linux.
&n= bsp; (package
    (name "perl")
    (ve= rsion "5.32.1")
    (source (origin
   =           (method url-fetch)             = (uri (string-append "mirror://cpan/src/5.0/perl-"
   &nbs= p;            &= nbsp;           &nbs= p;    version ".tar.gz"))
     &= nbsp;       (sha256
   &nbs= p;          (base32
 &= nbsp;           &nbs= p; "0b7brakq9xs4vavhg391as50nbhzryc7fy5i65r81bnq3j897dh3"))
  =            (patches (sear= ch-patches
          &= nbsp;            "pe= rl-no-sys-dirs.patch"
        &n= bsp;            = ;  "perl-autosplit-default-time.patch"
    &nbs= p;            &= nbsp;     "perl-deterministic-ordering.patch"
 =             &nb= sp;         "perl-reproducible-buil= d-date.patch"))))
    (build-system gnu-build-system)
=     (arguments
     `(#:tests? #f
=        #:configure-flags
   = ;    (let ((out  (assoc-ref %outputs "out"))
 &= nbsp;           (libc (as= soc-ref %build-inputs "libc")))
      &nbs= p;  (list
          (s= tring-append "-Dprefix=3D" out)
      &nbs= p;   (string-append "-Dman1dir=3D" out "/share/man/man1")
&nbs= p;         (string-append "-Dman3di= r=3D" out "/share/man/man3")
       &= nbsp;  "-de" "-Dcc=3Dgcc"
       = ;   "-Uinstallusrbinperl"
      =     "-Dinstallstyle=3Dlib/perl5"
    =       "-Duseshrplib"
    &n= bsp;     (string-append "-Dlocincpth=3D" libc "/include= ")
          (string-append= "-Dloclibpth=3D" libc "/lib")
       = ;   "-Dusethreads"))
       #:ph= ases
       (modify-phases %standard-phase= s
         (add-before 'configur= e 'setup-configure
         = ;  (lambda _
         =     ;; Use the right path for `pwd'.
   &n= bsp;         ;; TODO: use coreutils= from INPUTS instead of 'which'
      &nbs= p;      ;; in next rebuild cycle, see fixup below.=
            = ; (substitute* "dist/PathTools/Cwd.pm"
     &nb= sp;         (("/bin/pwd")
 =             &nb= sp;  (which "pwd")))

       =       ;; Build in GNU89 mode to tolerate C++-style= comment in libc's
         = ;    ;; <bits/string3.h>.
    &= nbsp;        (substitute* "cflags.SH"            &n= bsp;  (("-std=3Dc89")
       &nb= sp;        "-std=3Dgnu89"))
 &nb= sp;           #t))
&nb= sp;        ,@(if (%current-target-system= )
           &nbs= p;   `((add-after 'unpack 'unpack-cross
   &nbs= p;            &= nbsp;  (lambda* (#:key native-inputs inputs #:allow-other-keys)
&nb= sp;            =         (let ((cross-checkout
 &= nbsp;           &nbs= p;            &= nbsp; (assoc-ref native-inputs "perl-cross"))
    &n= bsp;            = ;          (cross-patch
&nb= sp;            =             &nb= sp;  (assoc-ref native-inputs "perl-cross-patch")))
  &nb= sp;            =         (rename-file "Artistic" "Artisti= c.perl")
          &nb= sp;            (rena= me-file "Copying" "Copying.perl")
      &n= bsp;            = ;    (copy-recursively cross-checkout ".")
  &n= bsp;            = ;        (format #t "Applying ~a\n" cros= s-patch)
          &nb= sp;            (invo= ke "patch" "-p1" "-i" cross-patch))
      =             &nb= sp;  (let ((bash (assoc-ref inputs "bash")))
   &nbs= p;            &= nbsp;      (substitute* '("Makefile.config.SH"
=             &nb= sp;            =              "c= nf/config.guess"
         &= nbsp;           &nbs= p;            &= nbsp;   "cnf/config.sub"
      &= nbsp;           &nbs= p;            &= nbsp;      "cnf/configure"
   &n= bsp;            = ;            &n= bsp;         "cnf/configure_misc.sh= "
           &nbs= p;            &= nbsp;           &nbs= p; "miniperl_top")
         = ;            &n= bsp;   (("! */bin/sh") (string-append "! " bash "/bin/bash"))
=             &nb= sp;            ((" /= bin/sh") (string-append bash "/bin/bash")))
    &nbs= p;            &= nbsp;     (substitute* '("ext/Errno/Errno_pm.PL")
&n= bsp;            = ;            (("\\$c= pp < errno.c") "$Config{cc} -E errno.c")))
    &n= bsp;            = ;      #t))
      = ;           (replace 'con= figure
           = ;        (lambda* (#:key configure-flags= outputs inputs #:allow-other-keys)
      =             &nb= sp;  (let* ((out (assoc-ref outputs "out"))
    = ;            &n= bsp;           (store-dir= ectory (%store-directory))
       &nb= sp;            =         (configure-flags
  =             &nb= sp;            =   (cons*
         &nbs= p;            &= nbsp;       ;; `perl-cross' confuses target a= nd host
          &nbs= p;            &= nbsp;      (string-append "--target=3D" ,(%current= -target-system))
         &= nbsp;           &nbs= p;        (string-append "--prefix=3D" o= ut)
           &n= bsp;            = ;      (string-append "-Dcc=3D" ,(%current-target-= system) "-gcc")
         &n= bsp;            = ;        "-Dbyteorder=3D1234"
 &= nbsp;           &nbs= p;            &= nbsp;   (filter (negate
      &n= bsp;            = ;            &n= bsp;       (lambda (x) (or (string-prefix? "-= d" x)
           =             &nb= sp;            =             &nb= sp;      (string-prefix? "-Dcc=3D" x))))
 =             &nb= sp;            =             configur= e-flags)))
          &= nbsp;           &nbs= p;     (bash (assoc-ref inputs "bash"))
  =             &nb= sp;            = (coreutils (assoc-ref inputs "coreutils")))
    &nb= sp;            =       (format (current-error-port)
  =             &nb= sp;            =     "running ./configure ~a\n" (string-join configure-flags)= )
           &nbs= p;           (apply invok= e (cons "./configure" configure-flags))
     &n= bsp;            = ;     (substitute* "config.sh"
   &nb= sp;            =          (((string-append store-dir= ectory "/[^/]*-bash-[^/]*"))
       &= nbsp;           &nbs= p;      bash))
     &n= bsp;            = ;     (substitute* '("config.h")
   &= nbsp;           &nbs= p;         (("^#define SH_PATH .*")=
            = ;            &n= bsp; (string-append  "#define SH_PATH \"" bash "/bin/bash\"\n")))
&= nbsp;           &nbs= p;          ;;TODO: fix this i= n setup-configure next rebuild cycle
      = ;            &n= bsp;    (substitute* "dist/PathTools/Cwd.pm"
  =             &nb= sp;          (((string-append = store-directory "/[^/]*-coreutils-[^/]*"))
     = ;            &n= bsp;        coreutils))
  &= nbsp;           &nbs= p;        #t)))
   &nb= sp;            = (add-after 'build 'touch-non-built-files-for-install
   =             &nb= sp;   (lambda _
       &nbs= p;             = ;; `make install' wants to install these although they do
  &n= bsp;            = ;      ;; not get built...
   &n= bsp;            = ;     (with-directory-excursion "cpan"
  &= nbsp;           &nbs= p;        (mkdir-p "Pod-Usage/blib/scrip= t")
           &n= bsp;           (mkdir-p "= Pod-Parser/blib/script")
        = ;            &n= bsp;  (for-each (lambda (file)
      =             &nb= sp;            =     (call-with-output-file file
    &= nbsp;           &nbs= p;            &= nbsp;       (lambda (port) (display "" port))= ))
           &nb= sp;            =          '("Pod-Usage/blib/script/p= od2text"
          &nb= sp;            =             "Pod-Usa= ge/blib/script/pod2usage"
       &nbs= p;            &= nbsp;           &nbs= p;  "Pod-Checker/blib/script/podchecker"
    &n= bsp;            = ;            &n= bsp;     "Pod-Parser/blib/script/podselect")))
 = ;            &n= bsp;       #t)))
    &= nbsp;          `((replace 'con= figure
           = ;        (lambda* (#:key configure-flags= #:allow-other-keys)
        &nb= sp;            (form= at #t "Perl configure flags: ~s~%" configure-flags)
   &n= bsp;            = ;     (apply invoke "./Configure" configure-flags)))))<= br>         (add-after 'install 're= move-extra-references
        &n= bsp;  (lambda* (#:key inputs outputs #:allow-other-keys)
 &nbs= p;           (let* ((out&= nbsp;    (assoc-ref outputs "out"))
   &nb= sp;            =     (libc    (assoc-ref inputs
  = ;            &n= bsp;            = ;             ,= (if (%current-target-system)
       &= nbsp;           &nbs= p;            &= nbsp;            "cr= oss-libc" "libc")))
        &nbs= p;           (config1 (ca= r (find-files (string-append out "/lib/perl5")
    &= nbsp;           &nbs= p;            &= nbsp;           &nbs= p;    "^Config_heavy\\.pl$")))
    &n= bsp;            = ;   (config2 (find-files (string-append out "/lib/perl5")
&nbs= p;            &= nbsp;           &nbs= p;            &= nbsp;  "^Config\\.pm$")))
       = ;        ;; Force the library search pat= h to contain only libc because
       = ;        ;; it is recorded in Config.pm = and Config_heavy.pl; we don't
       =         ;; want to keep a reference to e= verything that's in
        &nbs= p;      ;; $LIBRARY_PATH at build time (GCC, Binut= ils, bzip2, file,
         =       ;; etc.)
     &n= bsp;         (substitute* config1            &= nbsp;    (("^incpth=3D.*$")
     = ;             (= string-append "incpth=3D'" libc "/include'\n"))
    =              ((= "^(libpth|plibpth|libspath)=3D.*$" _ variable)
    &= nbsp;           &nbs= p; (string-append variable "=3D'" libc "/lib'\n")))

  &nbs= p;            (for-e= ach (lambda (file)
         = ;            &n= bsp;     (substitute* config2
   &nbs= p;            &= nbsp;            (("= libpth =3D> .*$")
        &nb= sp;            =          (string-append "libpth =3D= > '" libc
          = ;            &n= bsp;            = ;          "/lib',\n"))))
&= nbsp;           &nbs= p;            config= 2)
           &nb= sp;   #t))))))
    (inputs
   = ;  (if (%current-target-system)
      = ;   `(("bash" ,bash-minimal)
     &nb= sp;     ("coreutils" ,coreutils))
   =       '()))
    (native-inputs     (if (%current-target-system)
  &nbs= p;      `(("perl-cross"
    = ;        ,(origin
   &= nbsp;           (method g= it-fetch)
          &n= bsp;    (uri (git-reference
     = ;            &n= bsp;   (url "https://github.com/arsv/perl-cross")
  =             &nb= sp;      (commit "1.3.5")))
   &= nbsp;           (file-nam= e (git-file-name "perl-cross" "1.3.5"))
     &n= bsp;         (sha256
  = ;            &n= bsp; (base32 "09ggs8m8qya92klmjqs5z6c0q2rqfyv60ip1zvaczz4r5dmnzili"))))
=            ("perl-cross-p= atch" ,@(search-patches "perl-cross.patch")))
    &n= bsp;    '()))
    (native-search-paths (li= st (search-path-specification
       =             &nb= sp;            (vari= able "PERL5LIB")
         &= nbsp;           &nbs= p;          (files '("lib/perl= 5/site_perl")))))
    (synopsis "Implementation of the Pe= rl programming language")
    (description
  = ;   "Perl is a general-purpose programming language originally de= veloped for
text manipulation and now used for a wide range of tasks inc= luding system
administration, web development, network programming, GUI = development, and
more.")
    (home-page "https://www.p= erl.org/")
    (license license:gpl1+)))   = ;            &n= bsp;          ; or "Artistic"<= br>(define-public perl-ipc-system-simple
  (package
  =   (name "perl-ipc-system-simple")
    (version "1.30= ")
    (source (origin
     &= nbsp;        (method url-fetch)
 = ;             (= uri (string-append
         = ;           "mirror://cpa= n/authors/id/J/JK/JKEENAN/IPC-System-Simple-"
    &n= bsp;            = ;   version ".tar.gz"))
      &n= bsp;       (sha256
    = ;           (base32
&n= bsp;            = ;   "17msx650m9r3m6j5r3mr742vism1nxda7p4g0l9yapjh5cigbri2"))))    (build-system perl-build-system)
    = (home-page "https://metacpan.org/release/IPC-System-Simple")
  = ;  (synopsis "Run commands simply, with detailed diagnostics")
&nbs= p;   (description "Calling Perl's in-built @code{system} function= is easy,
determining if it was successful is hard.  Let's face it,= @code{$?} isn't the
nicest variable in the world to play with, and even= if you do check it,
producing a well-formatted error string takes a lot= of work.

@code{IPC::System::Simple} takes the hard work out of call= ing external
commands.")
    (license (package-license= perl))))
perl
perl-ipc-system-simple

------=_Part_1138242_609307811.1617123156576--