[subversion-commit] SVN tetex-base commit + diffs: r1063 - tetex-base/trunk/debian

[Frank Küster]

Author: frank
Date: 2006-03-15 19:26:07 +0000 (Wed, 15 Mar 2006)
New Revision: 1063

Modified:
   tetex-base/trunk/debian/tpm2licenses-new.pl
Log:
don't use references without need, and act nice if there are no docfiles

Modified: tetex-base/trunk/debian/tpm2licenses-new.pl
===================================================================
--- tetex-base/trunk/debian/tpm2licenses-new.pl	2006-03-15 19:25:09 UTC (rev 1062)
+++ tetex-base/trunk/debian/tpm2licenses-new.pl	2006-03-15 19:26:07 UTC (rev 1063)
@@ -243,13 +243,14 @@
     for ($debian_package) {
 	if ( /^texlive$/ ) { 1 };
 	if ( /^tetex-base$/ ) {
-	    foreach (\$RunFiles{"text"}, \$DocFiles{"text"}) {
-		my @filelist = split(/\n/m,${$_});
+	    foreach ($RunFiles{"text"}, $DocFiles{"text"}) {
+		my @filelist = split(/\n/m,$_);
+		next if (! @filelist);
 		foreach (@filelist) {CheckFileExistence($_)};
 	    };
 
 	    MergeDirectories(\@RunFiles);
-	    MergeDirectories(\@DocFiles);
+	    MergeDirectories(\@DocFiles) if (@DocFiles);
 	    print $pkg_header . "\n @RunFiles @DocFiles";
 	};
 	if ( /^tetex-src$/ ) {