gnu: po4a: Update to 0.74.

* gnu/packages/gettext.scm (po4a): Update to 0.74.
[arguments]<#:wrap-programs>: Uses PERL5LIB in wrap-program to avoid manually
updating Perl dependencies when inputs change; simplifying maintenance and
reducing redundancy.
[native-inputs]: Add libxml2 package to convert DocBook man files.
[inputs]: Add perl-pod-simple package for a new module.

Change-Id: Ic9a2a38a3c42e46faf3c9a0ae0a937d794aba751
Signed-off-by: Andreas Enge <andreas@enge.fr>
This commit is contained in:
gemmaro 2025-07-13 07:28:38 +09:00 committed by Andreas Enge
parent a9fb57af97
commit 89d73c352a
No known key found for this signature in database
GPG key ID: F7D5C9BF765C61E3

View file

@ -11,7 +11,7 @@
;;; Copyright © 2019 Miguel <rosen644835@gmail.com>
;;; Copyright © 2020, 2023, 2024 Janneke Nieuwenhuizen <janneke@gnu.org>
;;; Copyright © 2020 EuAndreh <eu@euandre.org>
;;; Copyright © 2022, 2024 gemmaro <gemmaro.dev@gmail.com>
;;; Copyright © 2022, 2024, 2025 gemmaro <gemmaro.dev@gmail.com>
;;; Copyright © 2023 Maxim Cournoyer maxim.cournoyer@gmail.com>
;;;
;;; This file is part of GNU Guix.
@ -249,7 +249,7 @@ from Markdown files.")
(define-public po4a
(package
(name "po4a")
(version "0.73")
(version "0.74")
(source (origin
(method url-fetch)
(uri (string-append "https://github.com/mquinson/po4a"
@ -257,38 +257,23 @@ from Markdown files.")
version "/po4a-" version ".tar.gz"))
(sha256
(base32
"184f0cv0w3xa301gwm74srn5s6g8qdn3ksip84wpg8xjihnzh63g"))))
"1hp7iy1rl8ci7rirh7r6d3jb0i16jm4vy3mgqd4bsyx35czk5z15"))))
(build-system perl-build-system)
(arguments
(list
#:phases
#~(modify-phases %standard-phases
(add-after 'install 'wrap-programs
(lambda* (#:key inputs outputs #:allow-other-keys)
(lambda _
;; Make sure all executables in "bin" find the Perl modules
;; required by this package at runtime.
(let* ((out #$output)
(bin (string-append out "/bin/"))
(path (string-append
out "/lib/perl5/site_perl:"
(string-join
(map (lambda (name)
(string-append (assoc-ref inputs name)
"/lib/perl5/site_perl"))
(list "perl-gettext"
"perl-pod-parser"
"perl-sgmls"
"perl-syntax-keyword-try"
"perl-xs-parse-keyword"
"perl-term-readkey"
"perl-text-wrapi18n"
"perl-unicode-linebreak"
"perl-yaml-tiny"))
":"))))
(for-each (lambda (file)
(wrap-program file
`("PERL5LIB" ":" prefix (,path))))
(find-files bin "\\.*$")))))
(for-each
(lambda (file)
(wrap-program file
(list "PERL5LIB" 'suffix
(list (string-append #$output "/lib/perl5/site_perl")
(getenv "PERL5LIB")))))
(find-files (string-append #$output "/bin/") "\\.*$"))))
#$@(if (system-hurd?)
#~((add-after 'unpack 'skip-tests/hurd
(lambda _
@ -301,6 +286,7 @@ from Markdown files.")
perl-module-build
docbook-xsl
libxslt
libxml2 ;xmlcatalog
;; For tests.
docbook-sgml-4.1
docbook-xml-4.5
@ -311,6 +297,7 @@ from Markdown files.")
opensp
perl-gettext
perl-pod-parser
perl-pod-simple
perl-sgmls
perl-syntax-keyword-try
perl-xs-parse-keyword