summaryrefslogtreecommitdiff
path: root/Master/tlpkg/bin/place
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2007-12-03 15:11:01 +0000
committerNorbert Preining <preining@logic.at>2007-12-03 15:11:01 +0000
commit8769358c65a1821de408076b69cf94f3ce2073a4 (patch)
treea827b5dda42bd3712f55c7adf38d978d25c30322 /Master/tlpkg/bin/place
parent9edb5feefe19dfb1ba540bbcca521a1904136609 (diff)
BIG change: no TLPDB->location anymore, but TLPDB->root
git-svn-id: svn://tug.org/texlive/trunk@5697 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/bin/place')
-rwxr-xr-xMaster/tlpkg/bin/place7
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;