diff options
Diffstat (limited to 'Master/tlpkg/bin/place')
| -rwxr-xr-x | Master/tlpkg/bin/place | 6 |
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; |