61/137: gnu: texlive-texdoctk: Fix runtime error.

[guix-commits]

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

commit 9ded9232ed85dfe0f70b723c765e6b358ad97fd6
Author: Nicolas Goaziou <mail@nicolasgoaziou.fr>
AuthorDate: Tue May 28 16:39:15 2024 +0200

    gnu: texlive-texdoctk: Fix runtime error.
    
    * gnu/packages/tex.scm (texlive-texdoctk)[arguments]<#:phases>: Wrap Perl
    libraries.
    [inputs]: Add PERL-TK.
    
    Change-Id: Iec7a96ddf4378780a1720e1ad09197fcfc4616b7
---
 gnu/packages/tex.scm | 12 ++++++++++--
 1 file changed, 10 insertions(+), 2 deletions(-)

diff --git a/gnu/packages/tex.scm b/gnu/packages/tex.scm
index 4382f6aadc..aa3dc5a7db 100644
--- a/gnu/packages/tex.scm
+++ b/gnu/packages/tex.scm
@@ -44769,8 +44769,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")