From 9e78ea79f81d9eec0fab9cbe204899e384973649 Mon Sep 17 00:00:00 2001
From: Maxim Cournoyer <maxim.cournoyer@gmail.com>
Date: Sat, 2 Jan 2021 23:04:57 -0500
Subject: [PATCH] gnu: texlive-bin: Fix the tlmgr utility.

Previously, it would error out, not finding its Perl modules, and later not
finding config.guess.  This utility is useful to query the local TeX Live
package database (texlive.tlpdb).

(texlive-bin)[inputs]{config}: New input.
[phases]{postint}: Add a symlink to the 'config.guess' script.  Patch the
tlmgr.pl script so that it can find its Perl modules and other resources.
---
 gnu/packages/tex.scm | 11 +++++++++++
 1 file changed, 11 insertions(+)

diff --git a/gnu/packages/tex.scm b/gnu/packages/tex.scm
index 3f17bf44586e89932991ddc980f4a1cd76fad0e6..4a4184c3381dbbd83d8b1b3db985d8132051847b 100644
--- a/gnu/packages/tex.scm
+++ b/gnu/packages/tex.scm
@@ -279,6 +279,7 @@ files from LOCATIONS with expected checksum HASH.  CODE is not currently in use.
     (build-system gnu-build-system)
     (inputs
      `(("texlive-extra-src" ,texlive-extra-src)
+       ("config" ,config)
        ("texlive-scripts"
         ,(origin
            (method svn-fetch)
@@ -452,6 +453,16 @@ files from LOCATIONS with expected checksum HASH.  CODE is not currently in use.
                  (("\\$TEXMFROOT/")
                   (string-append share "/")))
 
+               ;; Likewise for the tlmgr.
+               (substitute* (string-append scripts "/tlmgr.pl")
+                 ((".*\\$::installerdir = \\$Master.*" all)
+                  (format #f "  $Master = ~s;~%~a" share all)))
+
+               ;; Install the config.guess script, required by tlmgr.
+               (with-directory-excursion share
+                 (mkdir-p "tlpkg/installer/")
+                 (symlink config.guess "tlpkg/installer/config.guess"))
+
                ;; texlua shebangs are not patched by the patch-source-shebangs
                ;; phase because the texlua executable does not exist at that
                ;; time.