diff options
author | Norbert Preining <norbert@preining.info> | 2021-12-23 03:00:54 +0000 |
---|---|---|
committer | Norbert Preining <norbert@preining.info> | 2021-12-23 03:00:54 +0000 |
commit | efa3a013f699c533896b44e4fcb74c730e94ad34 (patch) | |
tree | 33ca0df069302a84b2b4ad8f53447960ae33bb9b /systems/texlive/tlnet/tlpkg/TeXLive | |
parent | 9105ca38c03b7a88ed0c306472d9560cc5f206bd (diff) |
CTAN sync 202112230300
Diffstat (limited to 'systems/texlive/tlnet/tlpkg/TeXLive')
-rw-r--r-- | systems/texlive/tlnet/tlpkg/TeXLive/TLDownload.pm | 6 | ||||
-rw-r--r-- | systems/texlive/tlnet/tlpkg/TeXLive/TLPDB.pm | 23 | ||||
-rw-r--r-- | systems/texlive/tlnet/tlpkg/TeXLive/TLPOBJ.pm | 21 | ||||
-rw-r--r-- | systems/texlive/tlnet/tlpkg/TeXLive/TLPSRC.pm | 8 | ||||
-rw-r--r-- | systems/texlive/tlnet/tlpkg/TeXLive/TLPaper.pm | 6 | ||||
-rw-r--r-- | systems/texlive/tlnet/tlpkg/TeXLive/TLTREE.pm | 6 | ||||
-rw-r--r-- | systems/texlive/tlnet/tlpkg/TeXLive/TLUtils.pm | 6 | ||||
-rw-r--r-- | systems/texlive/tlnet/tlpkg/TeXLive/TLWinGoo.pm | 10 | ||||
-rw-r--r-- | systems/texlive/tlnet/tlpkg/TeXLive/TeXCatalogue.pm | 6 |
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; } |