amaharaneko/guix-mirrors
1
1
Fork 0
mirror of https://codeberg.org/guix/guix.git synced 2025-10-02 02:15:12 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

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
No known key found for this signature in database
GPG key ID: F3C1A0D9C1D65273
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 © 2017 Eric Bavier <bavier@member.fsf.org>
;;; Copyright © 2018, 2019, 2020 Tobias Geerinckx-Rice <me@tobias.gr> ;;; Copyright © 2018, 2019, 2020 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2019 Miguel <rosen644835@gmail.com> ;;; 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 © 2020 EuAndreh <eu@euandre.org>
;;; Copyright © 2022, 2024 gemmaro <gemmaro.dev@gmail.com> ;;; Copyright © 2022, 2024 gemmaro <gemmaro.dev@gmail.com>
;;; Copyright © 2023 Maxim Cournoyer maxim.cournoyer@gmail.com> ;;; Copyright © 2023 Maxim Cournoyer maxim.cournoyer@gmail.com>
@ -130,7 +130,19 @@
((" test-tls\\$\\(EXEEXT\\) ") " "))) ((" 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. ;; When tests fail, we want to know the details.
#:make-flags #~'("VERBOSE=yes"))) #:make-flags #~'("VERBOSE=yes")))