diff options
| author | Nicolas Goaziou <[email protected]> | 2025-03-08 19:52:04 +0100 |
|---|---|---|
| committer | Nicolas Goaziou <[email protected]> | 2025-03-08 19:57:18 +0100 |
| commit | c6918634d069f5400676e614f1002e36cb43134c (patch) | |
| tree | 239c8618728c1e1b276f831b0a5456fcc90f34a3 /gnu | |
| parent | cd704d29ce9755a4ec5b9baf72ba7428ae3500a6 (diff) | |
gnu: tlp: Fix all Perl invocations.
Fixes <https://issues.guix.gnu.org/76848>.
* gnu/packages/linux.scm (tlp):[arguments]: Fix Perl invocations in all Bash
scripts, even if they are not wrapped.
Change-Id: I12de013f70446e77467fa31be7ecd63a0826d955
Diffstat (limited to 'gnu')
| -rw-r--r-- | gnu/packages/linux.scm | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/gnu/packages/linux.scm b/gnu/packages/linux.scm index 38bc9f640d..5dbb6f9a96 100644 --- a/gnu/packages/linux.scm +++ b/gnu/packages/linux.scm @@ -8216,6 +8216,15 @@ interface in sysfs, which can be accomplished with the included udev rules.") (("= /usr") (string-append "= " #$output)) (("= /etc") (string-append "= " #$output "/etc")) (("install -d -m 755 \\$\\(_VAR\\)") "#")))) + (add-before 'build 'fix-perl-calls + ;; Shell scripts in "bat.d" and "func.d" call "perl". Fix + ;; invocation without wrapping every one of them. + (lambda* (#:key inputs #:allow-other-keys) + (substitute* (append (find-files "bat.d" ".") + (find-files "func.d" ".")) + (("(^|[^/])perl" _ prefix) + (string-append prefix + (search-input-file inputs "bin/perl")))))) (replace 'install (lambda _ (invoke "make" "install-tlp" "install-man-tlp"))) (add-after 'install 'wrap |