Subject: bug#51684: closed (Re: bug#51684: [PATCH] gnu: perl-inline-c: Patch paths to ‘make’.)

From: [email-masked] (GNU bug Tracking System)
Date: Wed, 17 Nov 2021 15:23:02 +0000

Your bug report

#51684: [PATCH] gnu: perl-inline-c: Patch paths to ‘make’.

which was filed against the guix-patches package, has been closed.

The explanation is attached below, along with your original report.
If you require more details, please reply to [email-masked].

-- 
51684: http://debbugs.gnu.org/cgi/bugreport.cgi?bug=51684
GNU Bug Tracking System
Contact [email-masked] with problems

Subject: Re: bug#51684: [PATCH] gnu: perl-inline-c: Patch paths to‘make’.
From: Ludovic Courtès <[email-masked]>
To: Xinglu Chen <[email-masked]>
Cc: [email-masked]
Date: Wed, 17 Nov 2021 16:21:56 +0100
List-Id: <debbugs-submit.debbugs.gnu.org>

Hello,

Xinglu Chen <[email-masked]> skribis:

> * gnu/packages/perl.scm (perl-inline-c)[arguments]<#:phases>{patch-paths}: New
>   phase.

Applied, thanks!

Ludo’.

Subject: [PATCH] gnu: perl-inline-c: Patch paths to ‘make’.
From: Xinglu Chen <[email-masked]>
To: [email-masked]
Date: Mon, 08 Nov 2021 11:02:06 +0100
List-Id: <debbugs-submit.debbugs.gnu.org>

* gnu/packages/perl.scm (perl-inline-c)[arguments]<#:phases>{patch-paths}: New
  phase.
---
 gnu/packages/perl.scm | 11 +++++++++++
 1 file changed, 11 insertions(+)

diff --git a/gnu/packages/perl.scm b/gnu/packages/perl.scm
index 5d4843d39a..166ed5230c 100644
--- a/gnu/packages/perl.scm
+++ b/gnu/packages/perl.scm
@@ -5399,6 +5399,17 @@ (define-public perl-inline-c
         (base32
          "1b3sr39813di3j1kwbgn1xq2z726rhjjdw809ydzgmshj26jb1gi"))))
     (build-system perl-build-system)
+    (arguments
+     `(#:phases
+       (modify-phases %standard-phases
+         (add-after 'unpack 'patch-paths
+           (lambda* (#:key inputs #:allow-other-keys)
+             (let ((make (assoc-ref inputs "make")))
+             (substitute* "lib/Inline/C.pm"
+               (("'\"make\"'")
+                (string-append "'\"" make "/bin/make\"'"))
+               (("'\"make install\"'")
+                (string-append "'\"" make "/bin/make install\"'")))))))))
     (native-inputs
      `(("perl-file-copy-recursive" ,perl-file-copy-recursive)
        ("perl-file-sharedir-install" ,perl-file-sharedir-install)

base-commit: f52719dfad7b7d3beb2b1211b6846196f3590823
-- 
2.33.0