03/07: gnu: docbook-dsssl: Fix script installation path.

[guix-commits]

civodul pushed a commit to branch core-updates
in repository guix.

commit f7920604604820b8d3ece6a6edaf24c73f4894db
Author: Bruno Victal <mirai@makinata.eu>
AuthorDate: Thu Oct 19 16:38:20 2023 +0100

    gnu: docbook-dsssl: Fix script installation path.
    
    * gnu/packages/docbook.scm (docbook-dsssl)[source]: Fix script permission.
    [arguments]<#:install-plan>: Install script and manpage correctly.
    [inputs]: Add perl.
    
    Signed-off-by: Ludovic Courtès <ludo@gnu.org>
---
 gnu/packages/docbook.scm | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/gnu/packages/docbook.scm b/gnu/packages/docbook.scm
index adb4d3204e..3046846619 100644
--- a/gnu/packages/docbook.scm
+++ b/gnu/packages/docbook.scm
@@ -516,6 +516,7 @@ V4.1.2 that adds support for MathML in equation markup.")
                 "1g72y2yyc2k89kzs0lvrb9n7hjayw1hdskfpplpz97pf1c99wcig"))
               (snippet
                #~(begin
+                   (chmod "bin/collateindex.pl" #o755)
                    ;; Remove empty directories.
                    (rmdir "doc")
                    (rmdir "docsrc")))))
@@ -524,10 +525,12 @@ V4.1.2 that adds support for MathML in equation markup.")
     (arguments
      (list
       #:install-plan
-      #~`(("./" "sgml/dtd/docbook/")
+      #~`(("./" "sgml/dtd/docbook/" #:exclude ("bin"))
+          ("bin/collateindex.pl" "bin/")
+          ("bin/collateindex.pl.1" "share/man/man1/")
           (#$(this-package-input "docbook-dsssl-doc") "./" #:output "doc"))))
     (inputs
-     (list docbook-dsssl-doc))
+     (list perl docbook-dsssl-doc))
     (home-page "https://docbook.org/";)
     (synopsis "DSSSL style sheets for DocBook")
     (description "This package provides DSSSL style sheets for DocBook.")