diff options
author | Norbert Preining <preining@logic.at> | 2007-12-03 15:11:01 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2007-12-03 15:11:01 +0000 |
commit | 8769358c65a1821de408076b69cf94f3ce2073a4 (patch) | |
tree | a827b5dda42bd3712f55c7adf38d978d25c30322 /Master/tlpkg/bin/place | |
parent | 9edb5feefe19dfb1ba540bbcca521a1904136609 (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-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; |