Message ID | cbc05966175d6a423bf07963494460031ef962a0.1636365709.git.public@yoctocell.xyz |
---|---|
State | Accepted |
Headers | show |
Series | [bug#51684] gnu: perl-inline-c: Patch paths to ‘make’. | expand |
Context | Check | Description |
---|---|---|
cbaines/comparison | success | View comparision |
cbaines/git branch | success | View Git branch |
cbaines/applying patch | success | View Laminar job |
cbaines/issue | success | View issue |
Hello, Xinglu Chen <public@yoctocell.xyz> skribis: > * gnu/packages/perl.scm (perl-inline-c)[arguments]<#:phases>{patch-paths}: New > phase. Applied, thanks! Ludo’.
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)