26/53: gnu: texlive-texdoctk: Fix runtime error.

[guix-commits]

ngz pushed a commit to branch tex-team
in repository guix.

commit 886c51c3913efd01dc378e4b68d8a968655ebbe0
Author: Nicolas Goaziou <mail@nicolasgoaziou.fr>
AuthorDate: Sat May 11 17:56:15 2024 +0200

    gnu: texlive-texdoctk: Fix runtime error.
    
    * gnu/packages/tex.scm (texlive-texdoctk)[arguments]: Wrap Per script so 
Perl
    library is found at runtime.
    [inputs]: Add PERL-TK.
    
    * gnu/packages/tex.scm (texlive-bin): Do not build texdoctk.
    
    Change-Id: Ibf867bbf5fd5f241878d7832f40536eec0d0d13c
---
 gnu/packages/tex.scm | 13 +++++++++++--
 1 file changed, 11 insertions(+), 2 deletions(-)

diff --git a/gnu/packages/tex.scm b/gnu/packages/tex.scm
index 06ca76016f..826fbebdbb 100644
--- a/gnu/packages/tex.scm
+++ b/gnu/packages/tex.scm
@@ -773,6 +773,7 @@ and should be preferred to it whenever a package would 
otherwise depend on
                           "ps2eps"
                           "psutils"
                           "t1utils"
+                          "texdoctk"
                           "upmendex"
                           "xindy"
                           "xpdfopen"))))
@@ -43505,8 +43506,16 @@ other configuration can be extensively customized.")
               "18xxivpgjdh8v6kg0b45zjv18sm9a4ljpwk6a4cghg5l5yggrjcx")))
     (outputs '("out" "doc"))
     (build-system texlive-build-system)
-    (arguments (list #:link-scripts #~(list "texdoctk.pl")))
-    (inputs (list perl))
+    (arguments
+     (list
+      #:link-scripts #~(list "texdoctk.pl")
+      #:phases
+      #~(modify-phases %standard-phases
+          (add-after 'link-scripts 'wrap-perl-script
+            (lambda _
+              (wrap-program (string-append #$output "/bin/texdoctk")
+                `("PERL5LIB" ":" prefix (,(getenv "PERL5LIB")))))))))
+    (inputs (list perl perl-tk))
     (propagated-inputs (list texlive-kpathsea))
     (home-page "https://ctan.org/pkg/texdoctk";)
     (synopsis "Easy access to package documentation")