summaryrefslogtreecommitdiff
path: root/Master/tlpkg/bin/tlpsrc2tlpdb
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/tlpsrc2tlpdb
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/tlpsrc2tlpdb')
-rwxr-xr-xMaster/tlpkg/bin/tlpsrc2tlpdb12
1 files changed, 5 insertions, 7 deletions
diff --git a/Master/tlpkg/bin/tlpsrc2tlpdb b/Master/tlpkg/bin/tlpsrc2tlpdb
index 173fb554725..6d6741c546d 100755
--- a/Master/tlpkg/bin/tlpsrc2tlpdb
+++ b/Master/tlpkg/bin/tlpsrc2tlpdb
@@ -103,11 +103,9 @@ sub main
# write the new db, to the real location given --all, or stdout.
if ($opt_all) {
- local *TLPDB;
- our $TLPDB = ">$opt_master/$TeXLive::TLConfig::InfraLocation/texlive.tlpdb";
- open (TLPDB) || die "open($TLPDB) failed: $!";
- $tldb->writeout (*TLPDB);
- warn "$0: wrote $src_count packages $TLPDB.\n";
+ $tldb->root("$opt_master");
+ $tldb->save;
+ warn "$0: wrote $src_count packages ", $tldb->root, ".\n";
} else {
$tldb->writeout;
}
@@ -131,8 +129,8 @@ tlpsrc2tlpdb [OPTION]... [TLPSRC]...
=item B<-all>
Use all .tlpsrc files in C<Master/tlpkg/tlpsrc/*.tlpsrc>, and update the
-live database in C<Master/texlive.tlpdb>. (No repository operations are
-done.)
+live database in C<Master/tlpkg/texlive.tlpdb>.
+(No repository operations are done.)
=item B<-catalogue> I<Catalogue_dir>
The location given by B<-catalogue> must point to a valid TeX Catalogue.