@@ -33,6 +33,7 @@
;;; Copyright © 2021 Guillaume Le Vaillant <glv@posteo.net>
;;; Copyright © 2021 David Larsson <david.larsson@selfhosted.xyz>
;;; Copyright © 2021 Matthew James Kraai <kraai@ftbfs.org>
+;;; Copyright © 2023 Bruno Victal <mirai@makinata.eu>
;;;
;;; This file is part of GNU Guix.
;;;
@@ -1044,6 +1045,16 @@ (define-public perl-xml-xpath
(base32
"03yxj7w5a43ibbpiqsvb3lswj2b71dydsx4rs2fw0p8n0l3i3j8w"))))
(build-system perl-build-system)
+ (arguments
+ (list
+ #:phases
+ #~(modify-phases %standard-phases
+ (add-after 'wrap 'wrap-xpath
+ (lambda _
+ (wrap-program (string-append #$output "/bin/xpath")
+ `("PERL5LIB" ":" prefix
+ ,(cons (string-append #$output "/lib/perl5/site_perl")
+ (string-split (getenv "PERL5LIB") #\:)))))))))
(native-inputs
(list perl-path-tiny))
(propagated-inputs
@@ -1053,7 +1064,7 @@ (define-public perl-xml-xpath
(description
"This module aims to comply exactly to the @url{XPath specification,
https://www.w3.org/TR/xpath} and yet allow extensions to be added in
-the form of functions.")
+the form of functions. It also provides the command @command{xpath}.")
(license license:perl-license)))
(define-public pugixml