summaryrefslogtreecommitdiff
path: root/Master/tlpkg
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2007-11-20 07:24:10 +0000
committerNorbert Preining <preining@logic.at>2007-11-20 07:24:10 +0000
commit489720d920005785b27c5f6583835d818473dfce (patch)
treebdbec1112a614204a6343d72408173e2ccde1fbb /Master/tlpkg
parent988c601ec79cf7732f9a82f26e84d7cfd8edcfec (diff)
fix place for new location of texlive.tlpdb
git-svn-id: svn://tug.org/texlive/trunk@5518 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg')
-rwxr-xr-xMaster/tlpkg/bin/place6
1 files changed, 4 insertions, 2 deletions
diff --git a/Master/tlpkg/bin/place b/Master/tlpkg/bin/place
index 1876d8bd755..b147d20b23b 100755
--- a/Master/tlpkg/bin/place
+++ b/Master/tlpkg/bin/place
@@ -16,6 +16,7 @@ BEGIN {
use File::Basename;
use File::Find;
use Cwd;
+use TeXLive::TLConfig;
use TeXLive::TLPSRC;
use TeXLive::TLPOBJ;
use TeXLive::TLPDB;
@@ -60,7 +61,8 @@ if ($Root eq 'texmf-doc') {
}
# initialize TLPDB
-my $tlpdb = new TeXLive::TLPDB ( location => "$M/texlive.tlpdb" );
+my $tlpdb_path = "$M/$TeXLive::TLConfig::InfraLocation/texlive.tlpdb";
+my $tlpdb = new TeXLive::TLPDB ( location => $tlpdb_path );
# create TLTREE from stuff in cooked/$pkg
my $tltree = TeXLive::TLTREE->new( 'svnroot' => "$cooked/$package" );
$tltree->init_from_files;
@@ -96,7 +98,7 @@ my $tlpnew = $tlpsrc->make_tlpobj($tltree);
# we are here in perl world, which makes it easier ...
print "\n\f ";
if (!defined($tlpold)) {
- print "place: $package not present in $M/texlive.tlpdb\n\n";
+ print "place: $package not present in $tlpdb_path\n\n";
} else {
print "new vs. present $package\n";
my @oldfiles;