[Debian-tex-commits] SVN tex-common commit + diffs: r2944 - in tex-common/trunk: debian scripts

[Norbert Preining]

Author: preining
Date: 2007-06-05 16:00:22 +0000 (Tue, 05 Jun 2007)
New Revision: 2944

Modified:
   tex-common/trunk/debian/changelog
   tex-common/trunk/scripts/tpm2licenses
Log:
* implement an opion --nosourcefiles for tpm2licenses to not check
  source files


Modified: tex-common/trunk/debian/changelog
===================================================================
--- tex-common/trunk/debian/changelog	2007-06-05 15:41:04 UTC (rev 2943)
+++ tex-common/trunk/debian/changelog	2007-06-05 16:00:22 UTC (rev 2944)
@@ -18,8 +18,10 @@
     NEWS.Debian to reinstall it. [fk]
   * Debconf translations: Added Vietnamese translation, thanks to Clytie
     Siddall <clytie at riverland.net.au> (closes: #426881)
+  * implement an opion --nosourcefiles for tpm2licenses to not check 
+    source files
 
- -- Frank Küster <frank at debian.org>  Thu, 31 May 2007 18:11:44 +0200
+ -- Norbert Preining <preining at debian.org>  Tue, 05 Jun 2007 17:59:32 +0200
 
 tex-common (1.7) unstable; urgency=low
 

Modified: tex-common/trunk/scripts/tpm2licenses
===================================================================
--- tex-common/trunk/scripts/tpm2licenses	2007-06-05 15:41:04 UTC (rev 2943)
+++ tex-common/trunk/scripts/tpm2licenses	2007-06-05 16:00:22 UTC (rev 2944)
@@ -15,6 +15,7 @@
 #       --package
 #       --listallfiles
 #       --nocoverage
+#       --nosourcefiles
 # optional tpm file: check only that one
 #
 
@@ -43,7 +44,7 @@
 
 
 # initialize AppConfig
-my $config = AppConfig->new("catalogue=s", "nocheckcatalogue", "tpmdir=s", "package=s", "what=s", "listallfiles", "texmfPath=s", "nocoverage");
+my $config = AppConfig->new("catalogue=s", "nocheckcatalogue", "tpmdir=s", "package=s", "what=s", "listallfiles", "texmfPath=s", "nocoverage", "nosourcefiles");
 
 # parse configurationfile, if present
 my @cfgDirs = (".","./debian","..","~");
@@ -68,6 +69,7 @@
 my $texmfPathString = $config->texmfPath() ? $config->texmfPath() : ".";
 my @texmfPath = split ' ', $texmfPathString;
 my $nocoverage = $config->nocoverage() ? $config->nocoverage() : '';
+my $nosourcefiles = $config->nosourcefiles() ? 1 : 0;
 
 if ($debian_package) {
   die "Unknown Debian package: $debian_package." unless
@@ -330,13 +332,17 @@
       @DocFiles = map { $_ =~ s,^doc/,, ; $_; } @DocFiles ;
       foreach (@RunFiles) {CheckFileExistence($_)};
       foreach (@DocFiles) {CheckFileExistence($_)};
-      foreach (@SourceFiles) {CheckFileExistence($_)};
+      if (!$nosourcefiles) {
+        foreach (@SourceFiles) {CheckFileExistence($_)};
+      }
       MergeDirectories(\@RunFiles);
       MergeDirectories(\@DocFiles) if (@DocFiles);
-      MergeDirectories(\@SourceFiles) if (@SourceFiles);
+      if (!$nosourcefiles) {
+        MergeDirectories(\@SourceFiles) if (@SourceFiles);
+      }
       print @RunFiles;
       print @DocFiles;
-      print @SourceFiles;
+      print @SourceFiles if (!$nosourcefiles);
     };
     if ( /^tetex-base$/ ) {
       #@texmfPath = (".");