1 files changed, 20 insertions, 21 deletions

diff --git a/Master/tlpkg/bin/tlpkg-ctan-check b/Master/tlpkg/bin/tlpkg-ctan-check
index 3b8e8f7c0af..4e417fdc5f5 100755
--- a/Master/tlpkg/bin/tlpkg-ctan-check
+++ b/Master/tlpkg/bin/tlpkg-ctan-check
@@ -16,7 +16,7 @@ use TeXLive::TLPDB;
 use File::Basename;
 
 my $tlpdb;
-my $TL;
+my $Master;
 our %OPT;
 
 my @WorkingTLP = qw(
@@ -218,37 +218,35 @@ my @WorkingTLP = qw(
         york-thesis
         ziffer zwgetfdate
     ); 
-
 
 
 exit (&main ());
 
 sub main
 {
-  # get the Master dir
-  chomp (my $Master = `cd $mydir/../.. && pwd`);
-  $TL = $Master;
-  # First we load the current texlive.tlpdb
-  $tlpdb = TeXLive::TLPDB->new ("root" => "$Master");
-  die("Cannot find tlpdb in $Master!\n") unless defined($tlpdb);
+  # get the Master dir and texlive.tlpdb
+  chomp ($Master = `cd $mydir/../.. && pwd`);
+  $tlpdb = TeXLive::TLPDB->new ("root" => $Master);
+  die "Cannot find tlpdb in $Master!" unless defined $tlpdb;
 
   $OPT{"verbose"} = 0;
+  if ($ARGV[0] eq "--verbose") {
+    $OPT{"verbose"} = 1;
+    shift @ARGV;
+  }
   
   if ($ARGV[0] eq "--list-not-treated") {
-    print "List of tlps which are not in ctan-check:\n";
-    foreach my $b (&normal_tlps) {
-      my @foo = grep(/^$b$/, @WorkingTLP);
-      print "$b\n" if ($#foo < 0);
+    print "TeX Live packages not in $0:\n";
+    for my $b (&normal_tlps ()) {
+      print "$b\n" if ! grep (/^$b$/, @WorkingTLP);
     }
-    exit 0;
+    @ARGV = (); # no normal checks
+
   } elsif ($ARGV[0] eq "--check") {
-    # for now, just check the few packages we have worked with.
+    # check all/only those packages we have actually run through this mill.
     @ARGV = @WorkingTLP;
   } elsif ($ARGV[0] eq "--check-all") {
-    @ARGV = &normal_tlps;
-  } elsif ($ARGV[0] eq "--verbose") {
-    $OPT{"verbose"} = 1;
-    shift @ARGV;
+    @ARGV = &normal_tlps ();
   }
 
   my $errcount = 0;
@@ -262,10 +260,11 @@ sub main
 # gives a list with only the 'normal' packages,
 # that is, excluding meta-packages and binary packages
 # (and hyphen for the moment)
+# 
 sub normal_tlps
 {
   my @normal;
-  my $non_normal = `ls $TL/bin`;
+  my $non_normal = `ls $Master/bin`;
   $non_normal =~ s/\n/\$|/g;
   $non_normal .= '^0+texlive|^bin-|^collection-|^scheme-|^texlive-|^hyphen-';
   foreach ($tlpdb->list_packages) {
@@ -275,7 +274,7 @@ sub normal_tlps
 }
 
 
-# Return 1 if TPM needs updating, 0 if ok.
+# Return 1 if package needs updating, 0 if ok.
 # 
 sub do_tlp
 {
@@ -302,7 +301,7 @@ sub do_tlp
   my @compared = ();
   for my $file (@tpm_files) {
 #warn "checking file $file\n";
-    my $tl_file = "$TL/$file";
+    my $tl_file = "$Master/$file";
     if (! -e $tl_file) {
       warn "$tl_file: TL file missing\n";
       next;