diff options
Diffstat (limited to 'systems/texlive/tlnet/tlpkg/TeXLive/TLPDB.pm')
-rw-r--r-- | systems/texlive/tlnet/tlpkg/TeXLive/TLPDB.pm | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/systems/texlive/tlnet/tlpkg/TeXLive/TLPDB.pm b/systems/texlive/tlnet/tlpkg/TeXLive/TLPDB.pm index 93e20de18f..ac686c9d4f 100644 --- a/systems/texlive/tlnet/tlpkg/TeXLive/TLPDB.pm +++ b/systems/texlive/tlnet/tlpkg/TeXLive/TLPDB.pm @@ -1,4 +1,4 @@ -# $Id: TLPDB.pm 52706 2019-11-09 17:42:02Z karl $ +# $Id: TLPDB.pm 53037 2019-12-05 23:53:35Z karl $ # TeXLive::TLPDB.pm - tlpdb plain text database files. # Copyright 2007-2019 Norbert Preining # This file is licensed under the GNU General Public License version 2 @@ -6,7 +6,7 @@ package TeXLive::TLPDB; -my $svnrev = '$Revision: 52706 $'; +my $svnrev = '$Revision: 53037 $'; my $_modulerevision = ($svnrev =~ m/: ([0-9]+) /) ? $1 : "unknown"; sub module_revision { return $_modulerevision; } @@ -91,7 +91,7 @@ C<TeXLive::TLPDB> -- A database of TeX Live Packages =cut use TeXLive::TLConfig qw($CategoriesRegexp $DefaultCategory $InfraLocation - $DatabaseName $MetaCategoriesRegexp $Archive + $DatabaseName $DatabaseLocation $MetaCategoriesRegexp $Archive $DefaultCompressorFormat %Compressors $CompressorExtRegexp %TLPDBOptions %TLPDBSettings $ChecksumExtension $RelocPrefix $RelocTree); @@ -148,7 +148,7 @@ sub new { } if (defined($self->{'root'})) { my $nr_packages_read - = $self->from_file("$self->{'root'}/$InfraLocation/$DatabaseName", + = $self->from_file("$self->{'root'}/$DatabaseLocation", 'verify' => $verify); if ($nr_packages_read == 0) { # that is bad, we didn't read anything, so return undef. @@ -1205,7 +1205,7 @@ sub location { tlwarn("TLPDB: cannot get location of a virtual tlpdb\n"); return 0; } - return "$self->{'root'}/$InfraLocation/$DatabaseName"; + return "$self->{'root'}/$DatabaseLocation"; } =pod |