BIG change: no TLPDB->location anymore, but TLPDB->root

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

1 files changed, 2 insertions, 3 deletions

diff --git a/Master/tlpkg/bin/tlprm b/Master/tlpkg/bin/tlprm
index 60ec0622cce..24c16ff624a 100755
--- a/Master/tlpkg/bin/tlprm
+++ b/Master/tlpkg/bin/tlprm
@@ -43,13 +43,12 @@ sub main
 
   # xx should default in TLPDB.
   chomp (my $Master = `cd $mydir/../.. && pwd`);
-	my $tlpdb_path = "$Master/$TeXLive::TLConfig::InfraLocation/texlive.tlpdb";
-  my $tlpdb = TeXLive::TLPDB->new (location => $tlpdb_path);
+  my $tlpdb = TeXLive::TLPDB->new (root => $Master);
 
   foreach my $f (@ARGV) {
     my $obj = $tlpdb->get_package ($f);
     if (! $obj) {
-      warn "$0: no TeX Live package named $f (in $Master/texlive.tlpdb).\n";
+      warn "$0: no TeX Live package named $f.\n";
       $failure_count++;
       next;
     }