[subversion-commit] SVN tex-common commit + diffs: r1245 - tex-common/trunk/scripts

[Frank Küster]

Author: frank
Date: 2006-04-26 10:48:13 +0000 (Wed, 26 Apr 2006)
New Revision: 1245

Modified:
   tex-common/trunk/scripts/tpm2licenses
Log:
- add an option to not check file coverage

- add a "last" statement to the search for the directory.  We only get
  one this way or the other, but I think it's clearer what we want if we
  explicitly take only the first


Modified: tex-common/trunk/scripts/tpm2licenses
===================================================================
--- tex-common/trunk/scripts/tpm2licenses	2006-04-26 09:36:11 UTC (rev 1244)
+++ tex-common/trunk/scripts/tpm2licenses	2006-04-26 10:48:13 UTC (rev 1245)
@@ -14,6 +14,7 @@
 #       --tpmdir
 #       --package
 #       --listallfiles
+#       --nocoverage
 # optional tpm file: check only that one
 #
 
@@ -42,7 +43,7 @@
 
 
 # initialize AppConfig
-my $config = AppConfig->new("catalogue=s", "nocheckcatalogue", "tpmdir=s", "package=s", "what=s", "listallfiles", "texmfPath=s");
+my $config = AppConfig->new("catalogue=s", "nocheckcatalogue", "tpmdir=s", "package=s", "what=s", "listallfiles", "texmfPath=s", "nocoverage");
 
 # parse configurationfile, if present
 my @cfgDirs = (".","./debian","..","~");
@@ -66,6 +67,7 @@
 my $listallfiles = $config->listallfiles() ? 1 : 0;
 my $texmfPathString = $config->texmfPath() ? $config->texmfPath() : ".";
 my @texmfPath = split ' ', $texmfPathString;
+my $nocoverage = $config->nocoverage() ? $config->nocoverage() : '';
 
 if ($debian_package) {
   die "Unknown Debian package: $debian_package." unless
@@ -238,7 +240,7 @@
       printFiles($LocalTPM,$licline);
     }
   }
-  $what eq "files" && CheckCoverage();
+  $what eq "files" && ! $nocoverage && CheckCoverage();
 
 
   sub printFiles {
@@ -403,6 +405,7 @@
 	if ( -d ( $_ . "/" . $dirname )) { 
 	  $rootDir = $_;
 	  $fullDir =  ( $_ . "/" . $dirname );
+	  last;
 	};
       };
       if (!$fullDir) {