summaryrefslogtreecommitdiff
path: root/systems/texlive/tlnet/tlpkg/TeXLive
diff options
context:
space:
mode:
authorNorbert Preining <norbert@preining.info>2021-05-17 03:02:10 +0000
committerNorbert Preining <norbert@preining.info>2021-05-17 03:02:10 +0000
commitd999da47ff375df843c0c9bbfd5911236dd9d40a (patch)
tree5db62e278d67073330a7237b273091634eccf365 /systems/texlive/tlnet/tlpkg/TeXLive
parent2fc2609488764102ce43194e9288b7bd8e25f17f (diff)
CTAN sync 202105170302
Diffstat (limited to 'systems/texlive/tlnet/tlpkg/TeXLive')
-rw-r--r--systems/texlive/tlnet/tlpkg/TeXLive/TLConfFile.pm13
-rw-r--r--systems/texlive/tlnet/tlpkg/TeXLive/TLConfig.pm14
-rw-r--r--systems/texlive/tlnet/tlpkg/TeXLive/TLCrypto.pm8
-rw-r--r--systems/texlive/tlnet/tlpkg/TeXLive/TLDownload.pm8
-rw-r--r--systems/texlive/tlnet/tlpkg/TeXLive/TLPDB.pm8
-rw-r--r--systems/texlive/tlnet/tlpkg/TeXLive/TLPOBJ.pm12
-rw-r--r--systems/texlive/tlnet/tlpkg/TeXLive/TLPSRC.pm14
-rw-r--r--systems/texlive/tlnet/tlpkg/TeXLive/TLPaper.pm8
-rw-r--r--systems/texlive/tlnet/tlpkg/TeXLive/TLTREE.pm57
-rw-r--r--systems/texlive/tlnet/tlpkg/TeXLive/TLUtils.pm85
-rw-r--r--systems/texlive/tlnet/tlpkg/TeXLive/TLWinGoo.pm18
-rw-r--r--systems/texlive/tlnet/tlpkg/TeXLive/TeXCatalogue.pm36
-rw-r--r--systems/texlive/tlnet/tlpkg/TeXLive/trans.pl11
13 files changed, 214 insertions, 78 deletions
diff --git a/systems/texlive/tlnet/tlpkg/TeXLive/TLConfFile.pm b/systems/texlive/tlnet/tlpkg/TeXLive/TLConfFile.pm
index 4a2a125f44..768fc07edb 100644
--- a/systems/texlive/tlnet/tlpkg/TeXLive/TLConfFile.pm
+++ b/systems/texlive/tlnet/tlpkg/TeXLive/TLConfFile.pm
@@ -1,6 +1,6 @@
-# $Id: TLConfFile.pm 44447 2017-06-04 02:03:31Z preining $
+# $Id: TLConfFile.pm 59226 2021-05-16 18:22:05Z karl $
# TeXLive::TLConfFile.pm - reading and writing conf files
-# Copyright 2010-2017 Norbert Preining
+# Copyright 2010-2021 Norbert Preining
# This file is licensed under the GNU General Public License version 2
# or any later version.
@@ -8,7 +8,7 @@ package TeXLive::TLConfFile;
use TeXLive::TLUtils;
-my $svnrev = '$Revision: 44447 $';
+my $svnrev = '$Revision: 59226 $';
my $_modulerevision;
if ($svnrev =~ m/: ([0-9]+) /) {
$_modulerevision = $1;
@@ -559,13 +559,14 @@ __END__
=head1 NAME
-C<TeXLive::TLConfFile> -- TeX Live Config File Access Module
+C<TeXLive::TLConfFile> -- TeX Live generic configuration files
=head1 SYNOPSIS
use TeXLive::TLConfFile;
- $conffile = TeXLive::TLConfFile->new($file_name, $comment_char, $separator, $type);
+ my $conffile = TeXLive::TLConfFile->new($file_name, $comment_char,
+ $separator, $type);
$conffile->file;
$conffile->cc;
$conffile->sep;
@@ -706,7 +707,7 @@ After that you can query keys:
=head1 AUTHORS AND COPYRIGHT
This script and its documentation were written for the TeX Live
-distribution (L<http://tug.org/texlive>) and both are licensed under the
+distribution (L<https://tug.org/texlive>) and both are licensed under the
GNU General Public License Version 2 or later.
=cut
diff --git a/systems/texlive/tlnet/tlpkg/TeXLive/TLConfig.pm b/systems/texlive/tlnet/tlpkg/TeXLive/TLConfig.pm
index dc05afa17f..e24a368a53 100644
--- a/systems/texlive/tlnet/tlpkg/TeXLive/TLConfig.pm
+++ b/systems/texlive/tlnet/tlpkg/TeXLive/TLConfig.pm
@@ -1,4 +1,4 @@
-# $Id: TLConfig.pm 59199 2021-05-14 20:38:22Z karl $
+# $Id: TLConfig.pm 59225 2021-05-16 17:41:12Z karl $
# TeXLive::TLConfig.pm - module exporting configuration values
# Copyright 2007-2021 Norbert Preining
# This file is licensed under the GNU General Public License version 2
@@ -6,7 +6,7 @@
package TeXLive::TLConfig;
-my $svnrev = '$Revision: 59199 $';
+my $svnrev = '$Revision: 59225 $';
my $_modulerevision = ($svnrev =~ m/: ([0-9]+) /) ? $1 : "unknown";
sub module_revision { return $_modulerevision; }
@@ -277,7 +277,7 @@ our $ChecksumExtension = "sha512";
=head1 NAME
-C<TeXLive::TLConfig> -- TeX Live Configuration module
+C<TeXLive::TLConfig> -- TeX Live configuration parameters
=head1 SYNOPSIS
@@ -288,13 +288,13 @@ C<TeXLive::TLConfig> -- TeX Live Configuration module
The L<TeXLive::TLConfig> module contains definitions of variables
configuring all of TeX Live.
-=over 4
-
-=head1 EXPORTED VARIABLES
+=head2 EXPORTED VARIABLES
All of the following variables are pulled into the callers namespace,
i.e., are declared with C<EXPORT> (and C<EXPORT_OK>).
+=over 4
+
=item C<@TeXLive::TLConfig::MetaCategories>
The list of meta categories, i.e., those categories whose packages only
@@ -377,7 +377,7 @@ C<Master/tlpkg/doc/>.
=head1 AUTHORS AND COPYRIGHT
This script and its documentation were written for the TeX Live
-distribution (L<http://tug.org/texlive>) and both are licensed under the
+distribution (L<https://tug.org/texlive>) and both are licensed under the
GNU General Public License Version 2 or later.
=cut
diff --git a/systems/texlive/tlnet/tlpkg/TeXLive/TLCrypto.pm b/systems/texlive/tlnet/tlpkg/TeXLive/TLCrypto.pm
index 4a0fb53bfb..7a1829f8c1 100644
--- a/systems/texlive/tlnet/tlpkg/TeXLive/TLCrypto.pm
+++ b/systems/texlive/tlnet/tlpkg/TeXLive/TLCrypto.pm
@@ -1,4 +1,4 @@
-# $Id: TLCrypto.pm 59044 2021-05-01 22:05:56Z karl $
+# $Id: TLCrypto.pm 59224 2021-05-16 16:50:31Z karl $
# TeXLive::TLCrypto.pm - handle checksums and signatures.
# Copyright 2016-2021 Norbert Preining
# This file is licensed under the GNU General Public License version 2
@@ -12,7 +12,7 @@ use TeXLive::TLConfig;
use TeXLive::TLUtils qw(debug ddebug win32 which platform
conv_to_w32_path tlwarn tldie);
-my $svnrev = '$Revision: 59044 $';
+my $svnrev = '$Revision: 59224 $';
my $_modulerevision = ($svnrev =~ m/: ([0-9]+) /) ? $1 : "unknown";
sub module_revision { return $_modulerevision; }
@@ -20,7 +20,7 @@ sub module_revision { return $_modulerevision; }
=head1 NAME
-C<TeXLive::TLCrypto> -- checksums and cryptographic signatures
+C<TeXLive::TLCrypto> -- TeX Live checksums and cryptographic signatures
=head1 SYNOPSIS
@@ -655,7 +655,7 @@ Also the standard modules L<Digest::MD5> and L<Digest::SHA>.
=head1 AUTHORS AND COPYRIGHT
This script and its documentation were written for the TeX Live
-distribution (L<http://tug.org/texlive>) and both are licensed under the
+distribution (L<https://tug.org/texlive>) and both are licensed under the
GNU General Public License Version 2 or later.
=cut
diff --git a/systems/texlive/tlnet/tlpkg/TeXLive/TLDownload.pm b/systems/texlive/tlnet/tlpkg/TeXLive/TLDownload.pm
index 5d0f8490d1..94c5b38685 100644
--- a/systems/texlive/tlnet/tlpkg/TeXLive/TLDownload.pm
+++ b/systems/texlive/tlnet/tlpkg/TeXLive/TLDownload.pm
@@ -1,4 +1,4 @@
-# $Id: TLDownload.pm 57809 2021-02-20 21:55:13Z karl $
+# $Id: TLDownload.pm 59224 2021-05-16 16:50:31Z karl $
# TeXLive::TLDownload.pm - module for abstracting the download modes
# Copyright 2009-2021 Norbert Preining
# This file is licensed under the GNU General Public License version 2
@@ -9,7 +9,7 @@ package TeXLive::TLDownload;
use TeXLive::TLUtils;
use TeXLive::TLConfig;
-my $svnrev = '$Revision: 57809 $';
+my $svnrev = '$Revision: 59224 $';
my $_modulerevision;
if ($svnrev =~ m/: ([0-9]+) /) {
$_modulerevision = $1;
@@ -173,7 +173,7 @@ __END__
=head1 NAME
-C<TeXLive::TLDownload> -- TeX Live Download abstraction module
+C<TeXLive::TLDownload> -- TeX Live persistent downloads via LWP
=head1 SYNOPSIS
@@ -221,7 +221,7 @@ LWP
=head1 AUTHORS AND COPYRIGHT
This script and its documentation were written for the TeX Live
-distribution (L<http://tug.org/texlive>) and both are licensed under the
+distribution (L<https://tug.org/texlive>) and both are licensed under the
GNU General Public License Version 2 or later.
=cut
diff --git a/systems/texlive/tlnet/tlpkg/TeXLive/TLPDB.pm b/systems/texlive/tlnet/tlpkg/TeXLive/TLPDB.pm
index 8b4ffeae29..ace3bbb360 100644
--- a/systems/texlive/tlnet/tlpkg/TeXLive/TLPDB.pm
+++ b/systems/texlive/tlnet/tlpkg/TeXLive/TLPDB.pm
@@ -1,4 +1,4 @@
-# $Id: TLPDB.pm 59098 2021-05-06 20:21:11Z karl $
+# $Id: TLPDB.pm 59225 2021-05-16 17:41:12Z karl $
# TeXLive::TLPDB.pm - tlpdb plain text database files.
# Copyright 2007-2021 Norbert Preining
# This file is licensed under the GNU General Public License version 2
@@ -6,7 +6,7 @@
package TeXLive::TLPDB;
-my $svnrev = '$Revision: 59098 $';
+my $svnrev = '$Revision: 59225 $';
my $_modulerevision = ($svnrev =~ m/: ([0-9]+) /) ? $1 : "unknown";
sub module_revision { return $_modulerevision; }
@@ -14,7 +14,7 @@ sub module_revision { return $_modulerevision; }
=head1 NAME
-C<TeXLive::TLPDB> -- A database of TeX Live Packages
+C<TeXLive::TLPDB> -- TeX Live Package Database (C<texlive.tlpdb>) module
=head1 SYNOPSIS
@@ -2981,7 +2981,7 @@ C<Master/tlpkg/doc/>.
=head1 AUTHORS AND COPYRIGHT
This script and its documentation were written for the TeX Live
-distribution (L<http://tug.org/texlive>) and both are licensed under the
+distribution (L<https://tug.org/texlive>) and both are licensed under the
GNU General Public License Version 2 or later.
=cut
diff --git a/systems/texlive/tlnet/tlpkg/TeXLive/TLPOBJ.pm b/systems/texlive/tlnet/tlpkg/TeXLive/TLPOBJ.pm
index cc41b4ea01..61430c98dd 100644
--- a/systems/texlive/tlnet/tlpkg/TeXLive/TLPOBJ.pm
+++ b/systems/texlive/tlnet/tlpkg/TeXLive/TLPOBJ.pm
@@ -1,4 +1,4 @@
-# $Id: TLPOBJ.pm 59098 2021-05-06 20:21:11Z karl $
+# $Id: TLPOBJ.pm 59226 2021-05-16 18:22:05Z karl $
# TeXLive::TLPOBJ.pm - module for using tlpobj files
# Copyright 2007-2021 Norbert Preining
# This file is licensed under the GNU General Public License version 2
@@ -6,7 +6,7 @@
package TeXLive::TLPOBJ;
-my $svnrev = '$Revision: 59098 $';
+my $svnrev = '$Revision: 59226 $';
my $_modulerevision = ($svnrev =~ m/: ([0-9]+) /) ? $1 : "unknown";
sub module_revision { return $_modulerevision; }
@@ -1472,18 +1472,18 @@ __END__
=head1 NAME
-C<TeXLive::TLPOBJ> -- TeX Live Package Object access module
+C<TeXLive::TLPOBJ> -- TeX Live Package Object (C<.tlpobj>) module
=head1 SYNOPSIS
use TeXLive::TLPOBJ;
- my $tlpobj=TeXLive::TLPOBJ->new(name => "foobar");
+ my $tlpobj = TeXLive::TLPOBJ->new(name => "foobar");
=head1 DESCRIPTION
The L<TeXLive::TLPOBJ> module provide access to TeX Live Package Object
-files describing a self-contained package.
+(C<.tlpobj>) files, which describe a self-contained TL package.
=head1 FILE SPECIFICATION
@@ -1851,7 +1851,7 @@ C<tl-update-tlpdb>), the documentation in C<Master/tlpkg/doc/>, etc.
=head1 AUTHORS AND COPYRIGHT
This script and its documentation were written for the TeX Live
-distribution (L<http://tug.org/texlive>) and both are licensed under the
+distribution (L<https://tug.org/texlive>) and both are licensed under the
GNU General Public License Version 2 or later.
=cut
diff --git a/systems/texlive/tlnet/tlpkg/TeXLive/TLPSRC.pm b/systems/texlive/tlnet/tlpkg/TeXLive/TLPSRC.pm
index 3a5924d050..6ba65f0fc3 100644
--- a/systems/texlive/tlnet/tlpkg/TeXLive/TLPSRC.pm
+++ b/systems/texlive/tlnet/tlpkg/TeXLive/TLPSRC.pm
@@ -1,6 +1,6 @@
-# $Id: TLPSRC.pm 58463 2021-03-17 01:26:23Z preining $
+# $Id: TLPSRC.pm 59226 2021-05-16 18:22:05Z karl $
# TeXLive::TLPSRC.pm - module for handling tlpsrc files
-# Copyright 2007-2020 Norbert Preining
+# Copyright 2007-2021 Norbert Preining
# This file is licensed under the GNU General Public License version 2
# or any later version.
@@ -12,7 +12,7 @@ use TeXLive::TLUtils;
use TeXLive::TLPOBJ;
use TeXLive::TLTREE;
-my $svnrev = '$Revision: 58463 $';
+my $svnrev = '$Revision: 59226 $';
my $_modulerevision = ($svnrev =~ m/: ([0-9]+) /) ? $1 : "unknown";
sub module_revision { return $_modulerevision; }
@@ -20,7 +20,7 @@ sub module_revision { return $_modulerevision; }
=head1 NAME
-C<TeXLive::TLPSRC> -- TeX Live Package Source module
+C<TeXLive::TLPSRC> -- TeX Live Package Source (C<.tlpsrc>) module
=head1 SYNOPSIS
@@ -1256,12 +1256,12 @@ The constructor C<new> returns a new C<TLPSRC> object. The arguments
to the C<new> constructor can be in the usual hash representation for
the different keys above:
- $tlpsrc = TLPSRC->new (name => "foobar",
- shortdesc => "The foobar package");
+ $tlpsrc = TLPSRC->new(name => "foobar",
+ shortdesc => "The foobar package");
=item C<from_file("filename")>
-reads a C<tlpsrc> file from disk. C<filename> can either be a full path
+Reads a C<tlpsrc> file from disk. C<filename> can either be a full path
(if it's readable, it's used), or just a package identifier such as
C<plain>. In the latter case, the directory searched is the C<tlpsrc>
sibling of the C<TeXLive> package directory where C<TLPSRC.pm> was found.
diff --git a/systems/texlive/tlnet/tlpkg/TeXLive/TLPaper.pm b/systems/texlive/tlnet/tlpkg/TeXLive/TLPaper.pm
index 345df5e9a9..548fd87909 100644
--- a/systems/texlive/tlnet/tlpkg/TeXLive/TLPaper.pm
+++ b/systems/texlive/tlnet/tlpkg/TeXLive/TLPaper.pm
@@ -1,12 +1,12 @@
-# $Id: TLPaper.pm 56397 2020-09-21 22:46:27Z karl $
+# $Id: TLPaper.pm 59224 2021-05-16 16:50:31Z karl $
# TeXLive::TLPaper.pm - query/modify paper sizes for our various programs
-# Copyright 2008-2020 Norbert Preining
+# Copyright 2008-2021 Norbert Preining
# This file is licensed under the GNU General Public License version 2
# or any later version.
package TeXLive::TLPaper;
-my $svnrev = '$Revision: 56397 $';
+my $svnrev = '$Revision: 59224 $';
my $_modulerevision;
if ($svnrev =~ m/: ([0-9]+) /) {
$_modulerevision = $1;
@@ -34,7 +34,7 @@ my $prg = ($::prg ? $::prg : TeXLive::TLUtils::basename($0));
=head1 NAME
-C<TeXLive::TLPaper> -- TeX Live paper size setting module
+C<TeXLive::TLPaper> -- TeX Live paper size module
=head1 SYNOPSIS
diff --git a/systems/texlive/tlnet/tlpkg/TeXLive/TLTREE.pm b/systems/texlive/tlnet/tlpkg/TeXLive/TLTREE.pm
index 79bc5fdda9..462176c21d 100644
--- a/systems/texlive/tlnet/tlpkg/TeXLive/TLTREE.pm
+++ b/systems/texlive/tlnet/tlpkg/TeXLive/TLTREE.pm
@@ -1,15 +1,50 @@
-# $Id: TLTREE.pm 55106 2020-05-11 21:11:50Z karl $
+# $Id: TLTREE.pm 59226 2021-05-16 18:22:05Z karl $
# TeXLive::TLTREE.pm - work with the tree of all files
-# Copyright 2007-2020 Norbert Preining
+# Copyright 2007-2021 Norbert Preining
# This file is licensed under the GNU General Public License version 2
# or any later version.
package TeXLive::TLTREE;
-my $svnrev = '$Revision: 55106 $';
+my $svnrev = '$Revision: 59226 $';
my $_modulerevision = ($svnrev =~ m/: ([0-9]+) /) ? $1 : "unknown";
sub module_revision { return $_modulerevision; }
+=pod
+
+=head1 NAME
+
+C<TeXLive::TLTREE> -- TeX Live tree of all files
+
+=head1 SYNOPSIS
+
+ use TeXLive::TLTREE;
+ my $tltree = TeXLive::TLTREE->new();
+
+ $tltree->init_from_svn();
+ $tltree->init_from_statusfile();
+ $tltree->init_from_files();
+ $tltree->init_from_git();
+ $tltree->init_from_gitsvn();
+ $tltree->print();
+ $tltree->find_alldirs();
+ $tltree->print_node();
+ $tltree->walk_tree();
+ $tltree->add_path_to_tree();
+ $tltree->file_svn_lastrevision();
+ $tltree->size_of();
+ $tltree->get_matching_files();
+ $tltree->files_under_path();
+ $tltree->svnroot();
+ $tltree->revision();
+ $tltree->architectures();
+
+=head1 DESCRIPTION
+
+DOCUMENTATION MISSING, SORRY!!!
+
+=cut
+
use TeXLive::TLUtils;
sub new {
@@ -531,8 +566,22 @@ sub architectures {
return defined $self->{'archs'} ? @{ $self->{'archs'} } : ();
}
-
1;
+__END__
+
+=head1 SEE ALSO
+
+The modules L<TeXLive::TLPSRC>, L<TeXLive::TLPOBJ>, L<TeXLive::TLPDB>,
+L<TeXLive::TLUtils>, etc., and the documentation in the repository:
+C<Master/tlpkg/doc/>.
+
+=head1 AUTHORS AND COPYRIGHT
+
+This script and its documentation were written for the TeX Live
+distribution (L<https://tug.org/texlive>) and both are licensed under the
+GNU General Public License Version 2 or later.
+
+=cut
### Local Variables:
### perl-indent-level: 2
diff --git a/systems/texlive/tlnet/tlpkg/TeXLive/TLUtils.pm b/systems/texlive/tlnet/tlpkg/TeXLive/TLUtils.pm
index b2bd5580a8..15e7f8366c 100644
--- a/systems/texlive/tlnet/tlpkg/TeXLive/TLUtils.pm
+++ b/systems/texlive/tlnet/tlpkg/TeXLive/TLUtils.pm
@@ -1,4 +1,4 @@
-# $Id: TLUtils.pm 59149 2021-05-09 21:09:44Z preining $
+# $Id: TLUtils.pm 59234 2021-05-16 22:43:42Z karl $
# TeXLive::TLUtils.pm - the inevitable utilities for TeX Live.
# Copyright 2007-2021 Norbert Preining, Reinhard Kotucha
# This file is licensed under the GNU General Public License version 2
@@ -6,7 +6,7 @@
package TeXLive::TLUtils;
-my $svnrev = '$Revision: 59149 $';
+my $svnrev = '$Revision: 59234 $';
my $_modulerevision = ($svnrev =~ m/: ([0-9]+) /) ? $1 : "unknown";
sub module_revision { return $_modulerevision; }
@@ -14,7 +14,7 @@ sub module_revision { return $_modulerevision; }
=head1 NAME
-C<TeXLive::TLUtils> - utilities used in TeX Live infrastructure
+C<TeXLive::TLUtils> - TeX Live infrastructure miscellany
=head1 SYNOPSIS
@@ -246,6 +246,12 @@ as argument.
The result is stored in a global variable C<$::_platform_>, and
subsequent calls just return that value.
+As of 2021, C<config.guess> unfortunately requires a shell that
+understands the C<$(...)> construct. This means that on old-enough
+systems, such as Solaris, we have to look for a shell. We use the value
+of the C<CONFIG_SHELL> environment variable if it is set, else
+C</bin/ksh> if it exists, else C</bin/bash> if it exists, else give up.
+
=cut
sub platform {
@@ -255,12 +261,58 @@ sub platform {
} else {
my $config_guess = "$::installerdir/tlpkg/installer/config.guess";
+ # For example, if the disc or reader has hardware problems.
+ die "$0: config.guess script does not exist, goodbye: $config_guess"
+ if ! -r $config_guess;
+
# We cannot rely on #! in config.guess but have to call /bin/sh
# explicitly because sometimes the 'noexec' flag is set in
# /etc/fstab for ISO9660 file systems.
- chomp (my $guessed_platform = `/bin/sh '$config_guess'`);
+ #
+ # In addition, config.guess was (unnecessarily) changed in 2020 by
+ # to use $(...) instead of `...`, although $(...) is not supported
+ # by Solaris /bin/sh (and others). The maintainers have declined
+ # to revert the change, so now every caller of config.guess must
+ # laboriously find a usable shell. Sigh.
+ #
+ my $config_shell = $ENV{"CONFIG_SHELL"} || "/bin/sh";
+ #
+ # check if $(...) is supported:
+ my $paren_cmdout = `'$config_shell' -c 'echo \$(echo foo)' 2>/dev/null`;
+ #warn "paren test out: `$paren_cmdout'.\n";
+ #
+ # The echo command might output a newline (maybe CRLF?) even if
+ # the $(...) fails, so don't just check for non-empty output.
+ # Maybe checking exit status would be better, but maybe not.
+ #
+ if (length ($paren_cmdout) <= 2) {
+ # if CONFIG_SHELL is set to something bad, give up.
+ if ($ENV{"CONFIG_SHELL"}) {
+ die <<END_BAD_CONFIG_SHELL;
+$0: the CONFIG_SHELL environment variable is set to $ENV{CONFIG_SHELL}
+ but this cannot execute \$(...) shell constructs,
+ which is required. Set CONFIG_SHELL to something that works.
+END_BAD_CONFIG_SHELL
+
+ } elsif (-x "/bin/ksh") {
+ $config_shell = "/bin/ksh";
+
+ } elsif (-x "/bin/bash") {
+ $config_shell = "/bin/bash";
- # For example, if the disc or reader has hardware problems.
+ } else {
+ die <<END_NO_PAREN_CMDS_SHELL
+$0: can't find shell to execute $config_guess
+ (which gratuitously requires support for \$(...) command substitution).
+ Tried $config_shell, /bin/ksh, bin/bash.
+ Set the environment variable CONFIG_SHELL to specify explicitly.
+END_NO_PAREN_CMDS_SHELL
+ }
+ }
+ #warn "executing config.guess with $config_shell\n";
+ chomp (my $guessed_platform = `'$config_shell' '$config_guess'`);
+
+ # If we didn't get anything usable, give up.
die "$0: could not run $config_guess, cannot proceed, sorry"
if ! $guessed_platform;
@@ -273,18 +325,23 @@ sub platform {
=item C<platform_name($canonical_host)>
-Convert ORIG_PLATFORM, a canonical host name as returned by
-C<config.guess>, into a TeX Live platform name.
+Convert the C<$canonical_host> argument, a system description as
+returned by C<config.guess>, into a TeX Live platform name, that is, a
+name used as a subdirectory of our C<bin/> dir. Our names have the
+form CPU-OS, for example, C<x86_64-linux>.
-CPU type is determined by a regexp, and any C</^i.86/> name is replaced
-by C<i386>.
-
-For the OS value we need a list because what's returned is not likely to
+We need this because what's returned from C<config.,guess> does not
match our historical names, e.g., C<config.guess> returns C<linux-gnu>
-but we need C<linux>. This list contains old OSs which are no longer
-supported, just in case.
+but we need C<linux>.
+
+The C<CPU> part of our name is always taken from the argument, with
+various transformation.
+
+For the C<OS> part, if the environment variable C<TEXLIVE_OS_NAME> is
+set, it is used as-is. Otherwise we do our best to figure it out.
-If the environment variable TEXLIVE_OS_NAME is set, it is used as-is.
+This function still handles old systems which are no longer supported,
+just in case.
=cut
diff --git a/systems/texlive/tlnet/tlpkg/TeXLive/TLWinGoo.pm b/systems/texlive/tlnet/tlpkg/TeXLive/TLWinGoo.pm
index 1fa5acf76f..0418dc12e0 100644
--- a/systems/texlive/tlnet/tlpkg/TeXLive/TLWinGoo.pm
+++ b/systems/texlive/tlnet/tlpkg/TeXLive/TLWinGoo.pm
@@ -1,6 +1,6 @@
-# $Id: TLWinGoo.pm 58811 2021-04-10 08:09:15Z siepo $
+# $Id: TLWinGoo.pm 59225 2021-05-16 17:41:12Z karl $
# TeXLive::TLWinGoo.pm - Windows goop.
-# Copyright 2008-2018 Siep Kroonenberg, Norbert Preining
+# Copyright 2008-2021 Siep Kroonenberg, Norbert Preining
# This file is licensed under the GNU General Public License version 2
# or any later version.
@@ -11,7 +11,7 @@
package TeXLive::TLWinGoo;
-my $svnrev = '$Revision: 58811 $';
+my $svnrev = '$Revision: 59225 $';
my $_modulerevision;
if ($svnrev =~ m/: ([0-9]+) /) {
$_modulerevision = $1;
@@ -24,7 +24,7 @@ sub module_revision { return $_modulerevision; }
=head1 NAME
-C<TeXLive::TLWinGoo> -- Additional utilities for Windows
+C<TeXLive::TLWinGoo> -- TeX Live Windows-specific support
=head2 SYNOPSIS
@@ -78,7 +78,7 @@ C<TeXLive::TLWinGoo> -- Additional utilities for Windows
All exported functions return forward slashes.
-=head2 DESCRIPTION
+=head1 DESCRIPTION
=over 4
@@ -1318,6 +1318,12 @@ sub unregister_uninstaller {
=pod
+=back
+
+=head2 ADMIN
+
+=over 4
+
=item C<TeXLive::TLWinGoo::maybe_make_ro($dir)>
Write-protects a directory $dir recursively, using ACLs, but only if
@@ -1325,6 +1331,8 @@ we are a multi-user install, and only if $dir is on an
NTFS-formatted local fixed disk, and only on Windows Vista and
later. It writes a log message what it does and why.
+=back
+
=cut
sub maybe_make_ro {
diff --git a/systems/texlive/tlnet/tlpkg/TeXLive/TeXCatalogue.pm b/systems/texlive/tlnet/tlpkg/TeXLive/TeXCatalogue.pm
index 8d9b31729d..ccf66b1d07 100644
--- a/systems/texlive/tlnet/tlpkg/TeXLive/TeXCatalogue.pm
+++ b/systems/texlive/tlnet/tlpkg/TeXLive/TeXCatalogue.pm
@@ -1,6 +1,6 @@
-# $Id: TeXCatalogue.pm 54367 2020-03-16 22:59:15Z preining $
+# $Id: TeXCatalogue.pm 59226 2021-05-16 18:22:05Z karl $
# TeXLive::TeXCatalogue - module for accessing the TeX Catalogue
-# Copyright 2007-2020 Norbert Preining
+# Copyright 2007-2021 Norbert Preining
# This file is licensed under the GNU General Public License version 2
# or any later version.
#
@@ -13,7 +13,7 @@ use Text::Unidecode;
package TeXLive::TeXCatalogue::Entry;
-my $svnrev = '$Revision: 54367 $';
+my $svnrev = '$Revision: 59226 $';
my $_modulerevision = ($svnrev =~ m/: ([0-9]+) /) ? $1 : "unknown";
sub module_revision { return $_modulerevision; }
@@ -21,11 +21,34 @@ sub module_revision { return $_modulerevision; }
=head1 NAME
-TeXLive::TeXCatalogue - accessing the TeX Catalogue for TeX Live
+C<TeXLive::TeXCatalogue> - TeX Live access to the TeX Catalogue from CTAN
=head1 SYNOPSIS
-missing
+ use TeXLive::TeXCatalogue;
+ my $texcat = TeXLive::TLTREE->new();
+
+ $texcat->initialize();
+ $texcat->beautify();
+ $texcat->name();
+ $texcat->license();
+ $texcat->version();
+ $texcat->caption();
+ $texcat->description();
+ $texcat->ctan();
+ $texcat->texlive();
+ $texcat->miktex();
+ $texcat->docs();
+ $texcat->entry();
+ $texcat->alias();
+ $texcat->also();
+ $texcat->topics();
+ $texcat->contact();
+ $texcat->new();
+ $texcat->initialize();
+ $texcat->quest4texlive();
+ $texcat->location();
+ $texcat->entries();
=head1 DESCRIPTION
@@ -344,7 +367,6 @@ sub entries {
1;
__END__
-
=head1 SEE ALSO
@@ -355,7 +377,7 @@ C<tl-update-tlpdb>), the documentation in C<Master/tlpkg/doc/>, etc.
=head1 AUTHORS AND COPYRIGHT
This script and its documentation were written for the TeX Live
-distribution (L<http://tug.org/texlive>) and both are licensed under the
+distribution (L<https://tug.org/texlive>) and both are licensed under the
GNU General Public License Version 2 or later.
=cut
diff --git a/systems/texlive/tlnet/tlpkg/TeXLive/trans.pl b/systems/texlive/tlnet/tlpkg/TeXLive/trans.pl
index 01fd82169f..cad5bea27f 100644
--- a/systems/texlive/tlnet/tlpkg/TeXLive/trans.pl
+++ b/systems/texlive/tlnet/tlpkg/TeXLive/trans.pl
@@ -1,6 +1,6 @@
#!/usr/bin/env perl
-# $Id: trans.pl 58557 2021-03-20 22:01:24Z siepo $
-# Copyright 2009-2016 Norbert Preining
+# $Id: trans.pl 59224 2021-05-16 16:50:31Z karl $
+# Copyright 2009-2021 Norbert Preining
# This file is licensed under the GNU General Public License version 2
# or any later version.
#
@@ -9,9 +9,9 @@
# if $::lang is unset try to auto-deduce it from LC_MESSAGES/Registry
# if $::opt_lang is set use that instead
#
-# this module implements parsing .po files, but no specialities of .po
+# this module implements parsing of .po files, but no specialities of .po
# files are supported. Only reading of msgstr and msgid and concatenating
-# multiple lines. Furthermore, strings replacements are done:
+# multiple lines. Furthermore, string replacements are done:
# \n -> <newline>
# \" -> "
# \\ -> \
@@ -130,7 +130,7 @@ sub load_translations() {
tlwarn ("\n Sorry, no translations available for $code (nor $::lang); falling back to English.
Make sure that you have the package \"texlive-msg-translations\" installed.
(If you'd like to help translate the installer's messages, please see
- http://tug.org/texlive/doc.html#install-tl-xlate for information.)\n\n");
+ https://tug.org/texlive/doc.html#install-tl-xlate for information.)\n\n");
} else {
# merge the translated strings into the text string
open(LANG, "<$::installerdir/tlpkg/translations/$::lang.po");
@@ -216,4 +216,3 @@ __END__
### indent-tabs-mode: nil
### End:
# vim:set tabstop=2 expandtab: #
-