fix place for new location of texlive.tlpdb

git-svn-id: svn://tug.org/texlive/trunk@5518 c570f23f-e606-0410-a88d-b1316a301751

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;