doc fixes

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

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