summaryrefslogtreecommitdiff
path: root/Master
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2008-07-03 01:04:04 +0000
committerKarl Berry <karl@freefriends.org>2008-07-03 01:04:04 +0000
commite06fa5da9dfb8d57856e981d5ff9549b90e4f94a (patch)
tree20c78b21f60792ecb9c996b6edfc30e3a3482f6c /Master
parent2f6456a01dc0d28c140208cdd2dc50be46dc0d87 (diff)
doc fixes
git-svn-id: svn://tug.org/texlive/trunk@9182 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master')
-rwxr-xr-xMaster/tlpkg/bin/tlpsrc2tlpdb24
1 files changed, 11 insertions, 13 deletions
diff --git a/Master/tlpkg/bin/tlpsrc2tlpdb b/Master/tlpkg/bin/tlpsrc2tlpdb
index 9d5c222251e..784f030ade5 100755
--- a/Master/tlpkg/bin/tlpsrc2tlpdb
+++ b/Master/tlpkg/bin/tlpsrc2tlpdb
@@ -31,14 +31,12 @@ my $help = 0;
my $opt_nobinsplit = 0;
TeXLive::TLUtils::process_logging_options();
-
GetOptions(
"all!" => \$opt_all,
"master=s" => \$opt_master, # location of the TL tree
"catalogue=s" => \$opt_catalogue, # location of the TeX Catalogue
"no-bin-split!" => \$opt_nobinsplit,
"help|?" => \$help) or pod2usage(1);
-
pod2usage(-exitstatus => 0, -verbose => 2) if $help;
exit (&main ());
@@ -52,11 +50,11 @@ sub main
my $tlc = undef;
if (! -d $opt_catalogue) {
- info("$0: -c /Cat/a/logue not given, continuing without it.\n");
+ info ("$0: -c /Cat/a/logue not given, continuing without it.\n");
} else {
require TeXLive::TeXCatalogue; # not at compile time, for now anyway.
- info("$0: reading TeX Catalogue $opt_catalogue ...\n");
- $tlc = TeXLive::TeXCatalogue->new( "location" => $opt_catalogue );
+ info ("$0: reading TeX Catalogue $opt_catalogue ...\n");
+ $tlc = TeXLive::TeXCatalogue->new ("location" => $opt_catalogue);
}
# if we're regenerating the whole thing, get all our tlpsrc files.
@@ -66,11 +64,11 @@ sub main
@ARGV = glob ("*.tlpsrc");
}
- info("$0: reading Master $opt_master ...\n");
- my $tltree = TeXLive::TLTREE->new( "svnroot" => $opt_master );
+ info ("$0: reading Master $opt_master ...\n");
+ my $tltree = TeXLive::TLTREE->new ("svnroot" => $opt_master);
$tltree->init_from_svn;
- info("$0: updating from tlpsrc ...\n");
+ info ("$0: updating from tlpsrc ...\n");
my $tldb = TeXLive::TLPDB->new;
my $src_count = 0;
foreach my $f (@ARGV) {
@@ -114,11 +112,11 @@ sub main
# write the new db, to the real location given --all, or stdout.
if ($opt_all) {
- $tldb->root("$opt_master");
+ $tldb->root ($opt_master);
# do set the option_archs from the dirs in Master/bin
- $tldb->option_available_architectures($tltree->architectures);
+ $tldb->option_available_architectures ($tltree->architectures);
$tldb->save;
- info("$0: wrote $src_count packages to ". $tldb->root . ".\n");
+ info ("$0: wrote $src_count packages to ". $tldb->root . ".\n");
} else {
$tldb->writeout;
}
@@ -155,9 +153,9 @@ The location given by B<-master> must point to a valid svn repository
of TeX Live's Master direcory. Defaults to C<../..> of C<$0>.
=item B<-no-bin-split>
-Do NOT split files with binaries into several packages, one for the arch
+Do NOT split files with binaries into several packages (one for the arch
independent and one for each of the architectures with only the respective
-binaries.
+binaries).
=back