summaryrefslogtreecommitdiff
path: root/systems/texlive/tlnet/tlpkg/TeXLive/TLPDB.pm
diff options
context:
space:
mode:
Diffstat (limited to 'systems/texlive/tlnet/tlpkg/TeXLive/TLPDB.pm')
-rw-r--r--systems/texlive/tlnet/tlpkg/TeXLive/TLPDB.pm10
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