02/13: gnu: perl-inline-c: Patch paths to ‘make’.

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit 77483d6b61ca7a706acb07fd9e7b6ee269a93562
Author: Xinglu Chen <public@yoctocell.xyz>
AuthorDate: Mon Nov 8 11:02:06 2021 +0100

    gnu: perl-inline-c: Patch paths to ‘make’.
    
    * gnu/packages/perl.scm (perl-inline-c)[arguments]<#:phases>{patch-paths}: 
New
      phase.
    
    Signed-off-by: Ludovic Courtès <ludo@gnu.org>
---
 gnu/packages/perl.scm | 11 +++++++++++
 1 file changed, 11 insertions(+)

diff --git a/gnu/packages/perl.scm b/gnu/packages/perl.scm
index 838e942..5973805 100644
--- a/gnu/packages/perl.scm
+++ b/gnu/packages/perl.scm
@@ -5399,6 +5399,17 @@ for immediate access from Perl.")
         (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)