summaryrefslogtreecommitdiff
path: root/systems/texlive/tlnet/tlpkg/TeXLive
diff options
context:
space:
mode:
authorNorbert Preining <norbert@preining.info>2021-12-23 03:00:54 +0000
committerNorbert Preining <norbert@preining.info>2021-12-23 03:00:54 +0000
commitefa3a013f699c533896b44e4fcb74c730e94ad34 (patch)
tree33ca0df069302a84b2b4ad8f53447960ae33bb9b /systems/texlive/tlnet/tlpkg/TeXLive
parent9105ca38c03b7a88ed0c306472d9560cc5f206bd (diff)
CTAN sync 202112230300
Diffstat (limited to 'systems/texlive/tlnet/tlpkg/TeXLive')
-rw-r--r--systems/texlive/tlnet/tlpkg/TeXLive/TLDownload.pm6
-rw-r--r--systems/texlive/tlnet/tlpkg/TeXLive/TLPDB.pm23
-rw-r--r--systems/texlive/tlnet/tlpkg/TeXLive/TLPOBJ.pm21
-rw-r--r--systems/texlive/tlnet/tlpkg/TeXLive/TLPSRC.pm8
-rw-r--r--systems/texlive/tlnet/tlpkg/TeXLive/TLPaper.pm6
-rw-r--r--systems/texlive/tlnet/tlpkg/TeXLive/TLTREE.pm6
-rw-r--r--systems/texlive/tlnet/tlpkg/TeXLive/TLUtils.pm6
-rw-r--r--systems/texlive/tlnet/tlpkg/TeXLive/TLWinGoo.pm10
-rw-r--r--systems/texlive/tlnet/tlpkg/TeXLive/TeXCatalogue.pm6
9 files changed, 56 insertions, 36 deletions
diff --git a/systems/texlive/tlnet/tlpkg/TeXLive/TLDownload.pm b/systems/texlive/tlnet/tlpkg/TeXLive/TLDownload.pm
index 94c5b38685..1e22f354d4 100644
--- a/systems/texlive/tlnet/tlpkg/TeXLive/TLDownload.pm
+++ b/systems/texlive/tlnet/tlpkg/TeXLive/TLDownload.pm
@@ -1,15 +1,17 @@
-# $Id: TLDownload.pm 59224 2021-05-16 16:50:31Z karl $
+# $Id: TLDownload.pm 61372 2021-12-21 22:46:16Z 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
# or any later version.
+use strict; use warnings;
+
package TeXLive::TLDownload;
use TeXLive::TLUtils;
use TeXLive::TLConfig;
-my $svnrev = '$Revision: 59224 $';
+my $svnrev = '$Revision: 61372 $';
my $_modulerevision;
if ($svnrev =~ m/: ([0-9]+) /) {
$_modulerevision = $1;
diff --git a/systems/texlive/tlnet/tlpkg/TeXLive/TLPDB.pm b/systems/texlive/tlnet/tlpkg/TeXLive/TLPDB.pm
index ace3bbb360..28586eaff2 100644
--- a/systems/texlive/tlnet/tlpkg/TeXLive/TLPDB.pm
+++ b/systems/texlive/tlnet/tlpkg/TeXLive/TLPDB.pm
@@ -1,12 +1,13 @@
-# $Id: TLPDB.pm 59225 2021-05-16 17:41:12Z karl $
+# $Id: TLPDB.pm 61372 2021-12-21 22:46:16Z 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
# or any later version.
+use strict; use warnings;
package TeXLive::TLPDB;
-my $svnrev = '$Revision: 59225 $';
+my $svnrev = '$Revision: 61372 $';
my $_modulerevision = ($svnrev =~ m/: ([0-9]+) /) ? $1 : "unknown";
sub module_revision { return $_modulerevision; }
@@ -281,6 +282,7 @@ sub from_file {
my $is_verified = 0;
# do media detection
my $rootpath = $self->root;
+ my $media;
if ($rootpath =~ m,https?://|ftp://,) {
$media = 'NET';
} elsif ($rootpath =~ m,$TeXLive::TLUtils::SshURIRegex,) {
@@ -423,7 +425,7 @@ sub writeout {
tlwarn("TLPDB: cannot writeout a virtual tlpdb\n");
return 0;
}
- my $fd = (@_ ? $_[0] : STDOUT);
+ my $fd = (@_ ? $_[0] : *STDOUT);
foreach (sort keys %{$self->{'tlps'}}) {
TeXLive::TLUtils::dddebug("writeout: tlpname=$_ ",
$self->{'tlps'}{$_}->name, "\n");
@@ -990,7 +992,7 @@ available architectures as packages with revision number -1.
sub generate_packagelist {
my $self = shift;
- my $fd = (@_ ? $_[0] : STDOUT);
+ my $fd = (@_ ? $_[0] : *STDOUT);
foreach (sort $self->list_packages) {
print $fd $self->get_package($_)->name, " ",
$self->get_package($_)->revision, "\n";
@@ -1017,7 +1019,7 @@ sub generate_listfiles {
$destdir = TeXLive::TLPDB->listdir;
}
foreach (sort $self->list_package) {
- $tlp = $self->get_package($_);
+ my $tlp = $self->get_package($_);
$self->_generate_listfile($tlp, $destdir);
}
}
@@ -1465,7 +1467,7 @@ sub sizes_of_packages_with_deps {
sub _sizes_of_packages {
my ($self, $with_deps, $opt_src, $opt_doc, $arch_list_ref, @packs) = @_;
@packs || ( @packs = $self->list_packages() );
- my @expacks;
+ my @exppacks;
if ($with_deps) {
# don't expand collection->collection dependencies
#@exppacks = $self->expand_dependencies('-no-collections', $self, @packs);
@@ -1623,7 +1625,8 @@ sub install_package_files {
my ($tlpobjfile, $anotherfile) = <$tmpdir/tlpkg/tlpobj/*.tlpobj>;
if (defined($anotherfile)) {
# we found several tlpobj files, that is not allowed, stop
- tlwarn("TLPDB::install_package_files: several tlpobj files in $what in tlpkg/tlpobj/, stopping!\n");
+ tlwarn("TLPDB::install_package_files: several tlpobj files "
+ . "($tlpobjfile, $anotherfile) in tlpkg/tlpobj/, stopping!\n");
next;
}
# - read the tlpobj from there
@@ -1651,8 +1654,10 @@ sub install_package_files {
@installfiles = map { s!^$RelocPrefix/!!; $_; } @installfiles;
# if the first argument of _install_data is scalar, it is the
# place from where files should be installed
- if (!_install_data ($tmpdir, \@installfiles, $reloc, \@installfiles, $self)) {
- tlwarn("TLPDB::install_package_files: couldn't install $what!\n");
+ if (!_install_data ($tmpdir, \@installfiles, $reloc, \@installfiles,
+ $self)) {
+ tlwarn("TLPDB::install_package_files: couldn't install_data files: "
+ . "@installfiles\n");
next;
}
if ($reloc) {
diff --git a/systems/texlive/tlnet/tlpkg/TeXLive/TLPOBJ.pm b/systems/texlive/tlnet/tlpkg/TeXLive/TLPOBJ.pm
index 61430c98dd..894dcb9702 100644
--- a/systems/texlive/tlnet/tlpkg/TeXLive/TLPOBJ.pm
+++ b/systems/texlive/tlnet/tlpkg/TeXLive/TLPOBJ.pm
@@ -1,12 +1,14 @@
-# $Id: TLPOBJ.pm 59226 2021-05-16 18:22:05Z karl $
+# $Id: TLPOBJ.pm 61372 2021-12-21 22:46:16Z 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
# or any later version.
+use strict; use warnings;
+
package TeXLive::TLPOBJ;
-my $svnrev = '$Revision: 59226 $';
+my $svnrev = '$Revision: 61372 $';
my $_modulerevision = ($svnrev =~ m/: ([0-9]+) /) ? $1 : "unknown";
sub module_revision { return $_modulerevision; }
@@ -249,7 +251,7 @@ sub _recompute_size {
if ($type eq "bin") {
my %binfiles = %{$self->{'binfiles'}};
if (defined($binfiles{$arch})) {
- foreach $f (@{$binfiles{$arch}}) {
+ foreach my $f (@{$binfiles{$arch}}) {
my $s = $tltree->size_of($f);
$nrivblocks += int($s/$TeXLive::TLConfig::BlockSize);
$nrivblocks++ if (($s%$TeXLive::TLConfig::BlockSize) > 0);
@@ -257,7 +259,7 @@ sub _recompute_size {
}
} else {
if (defined($self->{"${type}files"}) && (@{$self->{"${type}files"}})) {
- foreach $f (@{$self->{"${type}files"}}) {
+ foreach my $f (@{$self->{"${type}files"}}) {
my $s = $tltree->size_of($f);
if (defined($s)) {
$nrivblocks += int($s/$TeXLive::TLConfig::BlockSize);
@@ -273,7 +275,7 @@ sub _recompute_size {
sub writeout {
my $self = shift;
- my $fd = (@_ ? $_[0] : STDOUT);
+ my $fd = (@_ ? $_[0] : *STDOUT);
print $fd "name ", $self->name, "\n";
print $fd "category ", $self->category, "\n";
defined($self->{'revision'}) && print $fd "revision $self->{'revision'}\n";
@@ -377,7 +379,7 @@ sub writeout {
sub writeout_simple {
my $self = shift;
- my $fd = (@_ ? $_[0] : STDOUT);
+ my $fd = (@_ ? $_[0] : *STDOUT);
print $fd "name ", $self->name, "\n";
print $fd "category ", $self->category, "\n";
if (defined($self->{'depends'})) {
@@ -633,9 +635,8 @@ sub make_container {
$selfcopy->writeout(\*TMP);
close(TMP);
push(@files, "$tlpobjdir/$self->{'name'}.tlpobj");
- # Switch to versioned containers
- # $tarname = "$containername.tar";
- $tarname = "$containername.r" . $self->revision . ".tar";
+ # versioned containers
+ my $tarname = "$containername.r" . $self->revision . ".tar";
my $unversionedtar;
$unversionedtar = "$containername.tar" if (! $user);
@@ -1134,6 +1135,8 @@ sub updmap_cfg_lines {
}
+our @disabled; # global, should handle differently ...
+
sub language_dat_lines {
my $self = shift;
local @disabled = @_; # we use @disabled in the nested sub
diff --git a/systems/texlive/tlnet/tlpkg/TeXLive/TLPSRC.pm b/systems/texlive/tlnet/tlpkg/TeXLive/TLPSRC.pm
index 6ba65f0fc3..17c2322c27 100644
--- a/systems/texlive/tlnet/tlpkg/TeXLive/TLPSRC.pm
+++ b/systems/texlive/tlnet/tlpkg/TeXLive/TLPSRC.pm
@@ -1,9 +1,11 @@
-# $Id: TLPSRC.pm 59226 2021-05-16 18:22:05Z karl $
+# $Id: TLPSRC.pm 61372 2021-12-21 22:46:16Z karl $
# TeXLive::TLPSRC.pm - module for handling tlpsrc files
# Copyright 2007-2021 Norbert Preining
# This file is licensed under the GNU General Public License version 2
# or any later version.
+use strict; use warnings;
+
package TeXLive::TLPSRC;
use FileHandle;
@@ -12,7 +14,7 @@ use TeXLive::TLUtils;
use TeXLive::TLPOBJ;
use TeXLive::TLTREE;
-my $svnrev = '$Revision: 59226 $';
+my $svnrev = '$Revision: 61372 $';
my $_modulerevision = ($svnrev =~ m/: ([0-9]+) /) ? $1 : "unknown";
sub module_revision { return $_modulerevision; }
@@ -263,7 +265,7 @@ sub from_file {
sub writeout {
my $self = shift;
- my $fd = (@_ ? $_[0] : STDOUT);
+ my $fd = (@_ ? $_[0] : *STDOUT);
format_name $fd "multilineformat"; # format defined in TLPOBJ, and $:
$fd->format_lines_per_page (99999); # no pages in this format
print $fd "name ", $self->name, "\n";
diff --git a/systems/texlive/tlnet/tlpkg/TeXLive/TLPaper.pm b/systems/texlive/tlnet/tlpkg/TeXLive/TLPaper.pm
index 548fd87909..09136b54a0 100644
--- a/systems/texlive/tlnet/tlpkg/TeXLive/TLPaper.pm
+++ b/systems/texlive/tlnet/tlpkg/TeXLive/TLPaper.pm
@@ -1,12 +1,14 @@
-# $Id: TLPaper.pm 59224 2021-05-16 16:50:31Z karl $
+# $Id: TLPaper.pm 61372 2021-12-21 22:46:16Z karl $
# TeXLive::TLPaper.pm - query/modify paper sizes for our various programs
# Copyright 2008-2021 Norbert Preining
# This file is licensed under the GNU General Public License version 2
# or any later version.
+use strict; use warnings;
+
package TeXLive::TLPaper;
-my $svnrev = '$Revision: 59224 $';
+my $svnrev = '$Revision: 61372 $';
my $_modulerevision;
if ($svnrev =~ m/: ([0-9]+) /) {
$_modulerevision = $1;
diff --git a/systems/texlive/tlnet/tlpkg/TeXLive/TLTREE.pm b/systems/texlive/tlnet/tlpkg/TeXLive/TLTREE.pm
index 462176c21d..674bab2dca 100644
--- a/systems/texlive/tlnet/tlpkg/TeXLive/TLTREE.pm
+++ b/systems/texlive/tlnet/tlpkg/TeXLive/TLTREE.pm
@@ -1,12 +1,14 @@
-# $Id: TLTREE.pm 59226 2021-05-16 18:22:05Z karl $
+# $Id: TLTREE.pm 61372 2021-12-21 22:46:16Z karl $
# TeXLive::TLTREE.pm - work with the tree of all files
# Copyright 2007-2021 Norbert Preining
# This file is licensed under the GNU General Public License version 2
# or any later version.
+use strict; use warnings;
+
package TeXLive::TLTREE;
-my $svnrev = '$Revision: 59226 $';
+my $svnrev = '$Revision: 61372 $';
my $_modulerevision = ($svnrev =~ m/: ([0-9]+) /) ? $1 : "unknown";
sub module_revision { return $_modulerevision; }
diff --git a/systems/texlive/tlnet/tlpkg/TeXLive/TLUtils.pm b/systems/texlive/tlnet/tlpkg/TeXLive/TLUtils.pm
index 6c0eae7122..e73d1d54f2 100644
--- a/systems/texlive/tlnet/tlpkg/TeXLive/TLUtils.pm
+++ b/systems/texlive/tlnet/tlpkg/TeXLive/TLUtils.pm
@@ -1,4 +1,4 @@
-# $Id: TLUtils.pm 61225 2021-12-05 23:21:54Z karl $
+# $Id: TLUtils.pm 61372 2021-12-21 22:46:16Z 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
@@ -8,7 +8,7 @@ use strict; use warnings;
package TeXLive::TLUtils;
-my $svnrev = '$Revision: 61225 $';
+my $svnrev = '$Revision: 61372 $';
my $_modulerevision = ($svnrev =~ m/: ([0-9]+) /) ? $1 : "unknown";
sub module_revision { return $_modulerevision; }
@@ -2666,7 +2666,7 @@ END_COMPRESSOR_BAD
if ($::opt_verbosity >= 2) {
require Data::Dumper;
# avoid spurious "used only once" warnings due to require
- # (warnings restored at end of scope):
+ # (warnings restored at end of scope). https://perlmonks.org/?node_id=3333
no warnings 'once';
local $Data::Dumper::Sortkeys = 1; # stable output
local $Data::Dumper::Purity = 1; # reconstruct recursive structures
diff --git a/systems/texlive/tlnet/tlpkg/TeXLive/TLWinGoo.pm b/systems/texlive/tlnet/tlpkg/TeXLive/TLWinGoo.pm
index 0418dc12e0..5b0ca5b384 100644
--- a/systems/texlive/tlnet/tlpkg/TeXLive/TLWinGoo.pm
+++ b/systems/texlive/tlnet/tlpkg/TeXLive/TLWinGoo.pm
@@ -1,4 +1,4 @@
-# $Id: TLWinGoo.pm 59225 2021-05-16 17:41:12Z karl $
+# $Id: TLWinGoo.pm 61372 2021-12-21 22:46:16Z karl $
# TeXLive::TLWinGoo.pm - Windows goop.
# Copyright 2008-2021 Siep Kroonenberg, Norbert Preining
# This file is licensed under the GNU General Public License version 2
@@ -9,9 +9,11 @@
# This program is free software; you can redistribute it and/or modify it
# under the same terms as Perl itself.
+#use strict; use warnings; notyet
+
package TeXLive::TLWinGoo;
-my $svnrev = '$Revision: 59225 $';
+my $svnrev = '$Revision: 61372 $';
my $_modulerevision;
if ($svnrev =~ m/: ([0-9]+) /) {
$_modulerevision = $1;
@@ -86,7 +88,7 @@ All exported functions return forward slashes.
BEGIN {
use Exporter;
- use vars qw( @ISA @EXPORT $Registry);
+ use vars qw( @ISA @EXPORT @EXPORT_OK $Registry);
@ISA = qw( Exporter );
@EXPORT = qw(
&is_ten
@@ -343,7 +345,7 @@ sub is_a_texdir {
$sr =~ s/\\/\//g;
$sr = $sr . '/' unless $sr =~ m!/$!;
return 0 if index($d, $sr)==0;
- foreach $p (qw(luatex.exe mktexlsr.exe pdftex.exe tex.exe xetex.exe)) {
+ foreach my $p (qw(luatex.exe mktexlsr.exe pdftex.exe tex.exe xetex.exe)) {
return 1 if (-e $d.$p);
}
return 0;
diff --git a/systems/texlive/tlnet/tlpkg/TeXLive/TeXCatalogue.pm b/systems/texlive/tlnet/tlpkg/TeXLive/TeXCatalogue.pm
index ccf66b1d07..cc0e1ff500 100644
--- a/systems/texlive/tlnet/tlpkg/TeXLive/TeXCatalogue.pm
+++ b/systems/texlive/tlnet/tlpkg/TeXLive/TeXCatalogue.pm
@@ -1,4 +1,4 @@
-# $Id: TeXCatalogue.pm 59226 2021-05-16 18:22:05Z karl $
+# $Id: TeXCatalogue.pm 61372 2021-12-21 22:46:16Z karl $
# TeXLive::TeXCatalogue - module for accessing the TeX Catalogue
# Copyright 2007-2021 Norbert Preining
# This file is licensed under the GNU General Public License version 2
@@ -6,6 +6,8 @@
#
# Loads of code adapted from the catalogue checking script of Robin Fairbairns.
+use strict; use warnings;
+
use XML::Parser;
use XML::XPath;
use XML::XPath::XMLParser;
@@ -13,7 +15,7 @@ use Text::Unidecode;
package TeXLive::TeXCatalogue::Entry;
-my $svnrev = '$Revision: 59226 $';
+my $svnrev = '$Revision: 61372 $';
my $_modulerevision = ($svnrev =~ m/: ([0-9]+) /) ? $1 : "unknown";
sub module_revision { return $_modulerevision; }