diff options
author | Karl Berry <karl@freefriends.org> | 2019-12-05 23:53:35 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2019-12-05 23:53:35 +0000 |
commit | 3745e0216c9d22e511d2195fdf34d741c861ab08 (patch) | |
tree | aca628e1729d9d8eb1e639b4029d77e12b170ef8 /Master/tlpkg/TeXLive/TLPDB.pm | |
parent | 60fdf1b92914c2adc782fc066d8381fb59dd2953 (diff) |
new abbreviation $DatabaseLocation for tlpkg/texlive.tlpdb; use it in a few places
git-svn-id: svn://tug.org/texlive/trunk@53037 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/TeXLive/TLPDB.pm')
-rw-r--r-- | Master/tlpkg/TeXLive/TLPDB.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/Master/tlpkg/TeXLive/TLPDB.pm b/Master/tlpkg/TeXLive/TLPDB.pm index 865e3c67ac4..5ff686d5a78 100644 --- a/Master/tlpkg/TeXLive/TLPDB.pm +++ b/Master/tlpkg/TeXLive/TLPDB.pm @@ -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 |