From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: from mp2 ([2001:41d0:2:bcc0::]) (using TLSv1.2 with cipher ECDHE-RSA-AES256-GCM-SHA384 (256/256 bits)) by ms0.migadu.com with LMTPS id WGgNFAl6Y2CuwgAAgWs5BA (envelope-from ) for ; Tue, 30 Mar 2021 21:20:41 +0200 Received: from aspmx1.migadu.com ([2001:41d0:2:bcc0::]) (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits)) by mp2 with LMTPS id CBvKDQl6Y2ACJQAAB5/wlQ (envelope-from ) for ; Tue, 30 Mar 2021 19:20:41 +0000 Received: from lists.gnu.org (lists.gnu.org [209.51.188.17]) (using TLSv1.2 with cipher ECDHE-RSA-AES256-GCM-SHA384 (256/256 bits)) (No client certificate requested) by aspmx1.migadu.com (Postfix) with ESMTPS id C2A902535C for ; Tue, 30 Mar 2021 21:20:39 +0200 (CEST) Received: from localhost ([::1]:42112 helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1lRJun-0006rS-OK for larch@yhetil.org; Tue, 30 Mar 2021 15:20:37 -0400 Received: from eggs.gnu.org ([2001:470:142:3::10]:47084) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1lRIY2-0007X0-Pc for bug-guix@gnu.org; Tue, 30 Mar 2021 13:53:02 -0400 Received: from debbugs.gnu.org ([209.51.188.43]:41240) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_128_GCM_SHA256:128) (Exim 4.90_1) (envelope-from ) id 1lRIY2-0001Xx-IB for bug-guix@gnu.org; Tue, 30 Mar 2021 13:53:02 -0400 Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1lRIY2-00007i-Go for bug-guix@gnu.org; Tue, 30 Mar 2021 13:53:02 -0400 X-Loop: help-debbugs@gnu.org Subject: bug#47502: perl build commencment Resent-From: "testdellp23@yahoo.com" Original-Sender: "Debbugs-submit" Resent-CC: bug-guix@gnu.org Resent-Date: Tue, 30 Mar 2021 17:53:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: report 47502 X-GNU-PR-Package: guix X-GNU-PR-Keywords: To: 47502@debbugs.gnu.org X-Debbugs-Original-To: "bug-guix@gnu.org" Received: via spool by submit@debbugs.gnu.org id=B.1617126741424 (code B ref -1); Tue, 30 Mar 2021 17:53:02 +0000 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) Message-ID: <1666093816.1138243.1617123156582@mail.yahoo.com> 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 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-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 X-Mailman-Approved-At: Tue, 30 Mar 2021 15:19:43 -0400 X-BeenThere: bug-guix@gnu.org List-Id: Bug reports for GNU Guix List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: bug-guix-bounces+larch=yhetil.org@gnu.org Sender: "bug-Guix" Reply-to: "testdellp23@yahoo.com" From: "testdellp23@yahoo.com" via Bug reports for GNU Guix X-Migadu-Flow: FLOW_IN ARC-Message-Signature: i=1; a=rsa-sha256; c=relaxed/relaxed; d=yhetil.org; s=key1; t=1617132041; h=from:from:sender:sender:reply-to:reply-to:subject:subject:date:date: message-id:message-id:to:to:cc:mime-version:mime-version: content-type:content-type:resent-cc:resent-from:resent-sender: resent-message-id:references:references:list-id:list-help: list-unsubscribe:list-subscribe:list-post:dkim-signature; bh=geRPJzxELEDg2JfIWHmevauZpTnkg5dL9coBUp8UhLw=; b=MkTqXEnewYhgSeplXACZ32wpJ23NwUanbcK2uAb1AWpsP0p8rQ3L0cmKdQoeiCVW2+u9cE wOY/aOxlh6cFlu32iCxgJCE3YJ2AJmqIv6UtvpKQYTvXnbotphoDAhV0uqu7nwEnBIiiRN tkmIjMW7Elsh9q/tBGkvP57I96cl6cyH3lXsQRQNECtBT9LOMDQSdst3V1lVYBuWM73+Vp nVuYGdNkQG8X6nKdNlOMGAJ0lOWkdMNbbuHL4yjb4OV2ut3BFjGo9gQ49Bo2Z39b36OIXW QPV5qhvCMQtswtbSYe1vh766AhyPvA8xSNsqfO2Jl2jYXJtA8Zi7aCxK4tPEcw== ARC-Seal: i=1; s=key1; d=yhetil.org; t=1617132041; a=rsa-sha256; cv=none; b=cFlOSPqdO+5xaSHP5vzfyS+f9PDuJtH8n/tT/XK9zcSZOk+6xXNTzmraqQ3d/osZDlZkOZ N5ivU6HF46qzuZfOJZ4C0tJKmVE6Homo7i/cyD6cKXxxiot8EW5wGb02LCYoJxmCrpygMN 1tmdjRa2y6UsE73BA54v/GmLkzG0Qg1ZLc8u/QmjoIvjr2kMkyUCB0m0+fGixAt/7g+EyO etjssgvGn34LFiHm0pVlpP9LFD+pjh3+EbwbgizUM5Q/7q/hK3L0+Z9V2ulm1xQ0WXUxEz 0o/iF8Kwro/cGJu4fjvz5D17owGAWn1FludWPELY3USGs/PvtQRYwKFeEIZsng== ARC-Authentication-Results: i=1; aspmx1.migadu.com; dkim=fail ("headers rsa verify failed") header.d=yahoo.com header.s=s2048 header.b="n/WqmAaA"; dmarc=pass (policy=none) header.from=gnu.org; spf=pass (aspmx1.migadu.com: domain of bug-guix-bounces@gnu.org designates 209.51.188.17 as permitted sender) smtp.mailfrom=bug-guix-bounces@gnu.org X-Migadu-Spam-Score: 3.08 Authentication-Results: aspmx1.migadu.com; dkim=fail ("headers rsa verify failed") header.d=yahoo.com header.s=s2048 header.b="n/WqmAaA"; dmarc=pass (policy=none) header.from=gnu.org; spf=pass (aspmx1.migadu.com: domain of bug-guix-bounces@gnu.org designates 209.51.188.17 as permitted sender) smtp.mailfrom=bug-guix-bounces@gnu.org X-Migadu-Queue-Id: C2A902535C X-Spam-Score: 3.08 X-Migadu-Scanner: scn0.migadu.com X-TUID: 5S46uGJjGNPX ------=_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--