tribes/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2026-04-06 21:20:33 +02:00
Code Activity

gnu: gettext: Fix cross-build shebangs.

Browse Source 
This fixes running autopoint from a cross-built gettext[-minimal].

* gnu/packages/gettext.scm (gettext-minimal): When cross-building, add stage
"patch-cross-shebangs".

Change-Id: I5029a3be0b5cee3c173de66d8f0b027b02c3bc47
This commit is contained in:
Janneke Nieuwenhuizen
2024-11-11 13:28:58 +01:00
parent be81d46472
commit f905df43ba
1 changed files with 14 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
gnu/packages/gettext.scm
View File

@@ -9,7 +9,7 @@
;;; Copyright © 2017 Eric Bavier <bavier@member.fsf.org>
;;; Copyright © 2018, 2019, 2020 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2019 Miguel <rosen644835@gmail.com>
;;; Copyright © 2020, 2023 Janneke Nieuwenhuizen <janneke@gnu.org>
;;; Copyright © 2020, 2023, 2024 Janneke Nieuwenhuizen <janneke@gnu.org>
;;; Copyright © 2020 EuAndreh <eu@euandre.org>
;;; Copyright © 2022, 2024 gemmaro <gemmaro.dev@gmail.com>
;;; Copyright © 2023 Maxim Cournoyer maxim.cournoyer@gmail.com>
@@ -130,7 +130,19 @@
((" test-tls\\$\\(EXEEXT\\) ") " ")))
'())
#t)))))
#t))))
#$@(if (%current-target-system)
#~((add-after 'install 'patch-cross-shebangs
(lambda _
(let ((path (list (string-append #$bash-minimal "/bin"))))
(define (patch-cross-shebang file)
(patch-shebang file path))
(with-directory-excursion
(string-append #$output "/bin")
(for-each
patch-cross-shebang
'("autopoint" "gettext.sh" "gettextize")))))))
'()))
;; When tests fail, we want to know the details.
#:make-flags #~'("VERBOSE=yes")))