summaryrefslogtreecommitdiff
path: root/Master/tlpkg/bin/tlpsrc2tlpdb
diff options
context:
space:
mode:
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.