void-packages/srcpkgs/texlive/patches/tlmgr.patch
Érico Nogueira 7184064103 texlive: update to 20210325.
For ownership.txt changes:

- all files using the texlive version were identical between packages
- tikztosvg had more features in texlive-pictures
2021-12-11 00:18:04 -03:00

101 lines
3.2 KiB
Diff

Modified from Debian's tlmgr patch.
Src: https://raw.githubusercontent.com/debian-tex/texlive-nonbin/9767c8ba4ea64d671eb98ddff550498cd2ac3d51/texlive-base/debian/patches/debian-tlmgr-usermode.
Modifications:
* Drop Debian specific wording.
* Drop unnessecary manpage changes.
* Change /usr/share path to what we use.
Modified by fosslinux.
--- a/texk/texlive/linked_scripts/texlive/tlmgr.pl
+++ b/texk/texlive/linked_scripts/texlive/tlmgr.pl
@@ -20,7 +20,7 @@ $datrev =~ s/^.*Date: //;
$datrev =~ s/ \(.*$//;
$tlmgrversion = "$tlmgrrevision ($datrev)";
-our $Master;
+our $Master = "/usr/share/texmf-dist";
our $loadmediasrcerror;
our $packagelogfile;
our $packagelogged;
@@ -39,38 +39,9 @@ END {
}
BEGIN {
- $^W = 1;
# make subprograms (including kpsewhich) have the right path:
- my $kpsewhichname;
- if ($^O =~ /^MSWin/i) {
- # on w32 $0 and __FILE__ point directly to tlmgr.pl; they can be relative
- $Master = __FILE__;
- $Master =~ s!\\!/!g;
- $Master =~ s![^/]*$!../../..!
- unless ($Master =~ s!/texmf-dist/scripts/texlive/tlmgr\.pl$!!i);
- $bindir = "$Master/bin/win32";
- $kpsewhichname = "kpsewhich.exe";
- # path already set by wrapper batchfile
- } else {
- $Master = __FILE__;
- $Master =~ s,/*[^/]*$,,;
- $bindir = $Master;
- $Master = "$Master/../..";
- # make subprograms (including kpsewhich) have the right path:
- $ENV{"PATH"} = "$bindir:$ENV{PATH}";
- $kpsewhichname = "kpsewhich";
- }
- if (-r "$bindir/$kpsewhichname") {
- # if not in bootstrapping mode => kpsewhich exists, so use it to get $Master
- chomp($Master = `kpsewhich -var-value=SELFAUTOPARENT`);
- }
-
- # if we have no directory in which to find our modules,
- # no point in going on.
- if (! $Master) {
- die ("Could not determine directory of tlmgr executable, "
- . "maybe shared library woes?\nCheck for error messages above");
- }
+ $bindir = $Master;
+ $ENV{"PATH"} = "$bindir:$ENV{PATH}";
$::installerdir = $Master; # for config.guess et al., see TLUtils.pm
@@ -615,6 +586,13 @@ for the full story.\n";
tldie("$prg: Try --help if you need it.\n");
}
+ # automatically switch to user mode on Void, and warn
+ if (!$opts{"usermode"} && $action ne "init-usertree") {
+ $opts{"usermode"} = 1;
+ print "WARNING: switching to user mode!\n";
+ print "WARNING: normal mode unsupported on Void Linux.\n";
+ }
+
#
# the main tree we will be working on
$::maintree = $Master;
@@ -6118,7 +6096,9 @@ sub action_postaction {
# sets up the user tree for tlmgr in user mode
sub action_init_usertree {
# init_local_db but do not die if localtlpdb is not found!
- init_local_db(2);
+ # we don't ship tlpdb in the system, so don't even
+ # try to initialize it.
+ # init_local_db(2);
my $tlpdb = TeXLive::TLPDB->new;
my $usertree;
if ($opts{"usertree"}) {
@@ -6758,7 +6738,11 @@ sub init_local_db {
if ($should_i_die == 2) {
return undef;
} else {
- die("cannot setup TLPDB in $::maintree");
+ if ($opts{'usermode'}) {
+ die("$prg: user mode not initialized, please run `tlmgr init-usertree`\n");
+ } else {
+ die("cannot setup TLPDB in $::maintree");
+ }
}
}
# setup the programs, for w32 we need the shipped wget/xz etc, so we