diff options
Diffstat (limited to 'Master/tlpkg/bin/place')
| -rwxr-xr-x | Master/tlpkg/bin/place | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/Master/tlpkg/bin/place b/Master/tlpkg/bin/place index b1f69032265..d194119554c 100755 --- a/Master/tlpkg/bin/place +++ b/Master/tlpkg/bin/place @@ -16,7 +16,7 @@ BEGIN { use File::Basename; use File::Find; use Cwd; -use TeXLive::TLConfig; +use TeXLive::TLConfig qw/$InfraLocation $DatabaseName/; use TeXLive::TLPSRC; use TeXLive::TLPOBJ; use TeXLive::TLPDB; @@ -61,8 +61,7 @@ if ($Root eq 'texmf-doc') { } # initialize TLPDB -my $tlpdb_path = "$M/$TeXLive::TLConfig::InfraLocation/texlive.tlpdb"; -my $tlpdb = new TeXLive::TLPDB ( location => $tlpdb_path ); +my $tlpdb = new TeXLive::TLPDB ( root => "$M" ); # create TLTREE from stuff in cooked/$pkg my $tltree = TeXLive::TLTREE->new( 'svnroot' => "$cooked/$package" ); $tltree->init_from_files; @@ -98,7 +97,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 $tlpdb_path\n\n"; + print "place: $package not present in $M/$InfraLocation/$DatabaseName\n\n"; } else { print "new vs. present $package\n"; my @oldfiles; |