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/tlpsrc2tlpdb | |
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/tlpsrc2tlpdb')
-rwxr-xr-x | Master/tlpkg/bin/tlpsrc2tlpdb | 12 |
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. |