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

[Norbert Preining]

Author: preining-guest
Date: 2006-05-11 12:54:45 +0000 (Thu, 11 May 2006)
New Revision: 1346

Modified:
   tex-common/trunk/scripts/tpm2licenses
Log:
fix another bug in tpm2licenses: In the mrege function 
	find ... | grep -v tetex
is called. Now if a dir is empty or contains only links, this gives an
error, which is not what it should!


Modified: tex-common/trunk/scripts/tpm2licenses
===================================================================
--- tex-common/trunk/scripts/tpm2licenses	2006-05-11 11:40:16 UTC (rev 1345)
+++ tex-common/trunk/scripts/tpm2licenses	2006-05-11 12:54:45 UTC (rev 1346)
@@ -426,6 +426,8 @@
       printf STDERR "This should not happen: no directory $dirname, nowhere.\n";
       next;
     }
+    my @AllInstalledFiles = `find $fullDir -maxdepth 1 -type f 2>/dev/null`;
+    if ($#AllInstalledFiles == -1) { next; }
     my  @InstalledFiles = `find $fullDir -maxdepth 1 -type f 2>/dev/null | grep -v tetex` 
 	or die "Calling find for $dirname, expanded to $fullDir, failed.";
     for (@InstalledFiles) {