guix_mirror_bot pushed a commit to branch core-packages-team in repository guix.
commit b7a8ce2a448589284310c47a68b2863d0cfc5ec8 Author: Robin Templeton <[email protected]> AuthorDate: Tue Mar 3 16:47:04 2026 -0500 gnu: gettext-minimal: Patch programs paths. * gnu/packages/gettext.scm (gettext-minimal): Substitute gettext program paths in gettext.sh. Change-Id: If762c626787f2a5a0600f27057f8c3771904970f Signed-off-by: Ludovic Courtès <[email protected]> --- gnu/packages/gettext.scm | 9 +++++++++ 1 file changed, 9 insertions(+) diff --git a/gnu/packages/gettext.scm b/gnu/packages/gettext.scm index 6f4b452284..4bdfe1b01d 100644 --- a/gnu/packages/gettext.scm +++ b/gnu/packages/gettext.scm @@ -13,6 +13,7 @@ ;;; Copyright © 2020 EuAndreh <[email protected]> ;;; Copyright © 2022, 2024, 2025 gemmaro <[email protected]> ;;; Copyright © 2023 Maxim Cournoyer [email protected]> +;;; Copyright © 2026 Robin Templeton <[email protected]> ;;; ;;; This file is part of GNU Guix. ;;; @@ -119,6 +120,14 @@ ;; See 'coreutils' for the rationale. ((" test-tls\\$\\(EXEEXT\\) ") " "))) '()))))) + (add-after 'install 'patch-gettext.sh + (lambda _ + ;; This matches only the relevant command invocations, but + ;; is sensitive to the formatting of gettext.sh. (The + ;; string "gettext" appears in program output.) + (substitute* (string-append #$output "/bin/gettext.sh") + (("(^ |`|; )(gettext|ngettext|envsubst)" _ prefix program) + (string-append prefix #$output "/bin/" program))))) #$@(if (%current-target-system) #~((add-after 'install 'patch-cross-shebangs (lambda _
