summaryrefslogtreecommitdiff
path: root/Build/cdbuild/tar2find.pl
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2005-12-27 23:56:17 +0000
committerKarl Berry <karl@freefriends.org>2005-12-27 23:56:17 +0000
commit577983747d8680b8defbfdd03a9d50bad6fd54b7 (patch)
tree16b160f53c6c4c309c07db2c5b095d3abb16f69a /Build/cdbuild/tar2find.pl
parent07fed0169bae91dfb5616f9d19e7969727e19d4d (diff)
initial Build
git-svn-id: svn://tug.org/texlive/trunk@4 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/cdbuild/tar2find.pl')
-rwxr-xr-xBuild/cdbuild/tar2find.pl25
1 files changed, 25 insertions, 0 deletions
diff --git a/Build/cdbuild/tar2find.pl b/Build/cdbuild/tar2find.pl
new file mode 100755
index 00000000000..70e8925e87d
--- /dev/null
+++ b/Build/cdbuild/tar2find.pl
@@ -0,0 +1,25 @@
+#!/usr/local/bin/perl
+while (@ARGV && ($List = $ARGV[0])) {
+ print "Process $List\n";
+ open(TMP,"$List");
+ while (<TMP>) {
+ chop;
+ $found{$_} = 1;
+ while ($_ ne "") {
+ if (/(.*)\/(.*)/) {
+ $found{$1. "/"} = 0;
+ $found{$1} = 0;
+ $_=$1;
+ }
+ else { last; }
+ }
+ }
+ close(TMP);
+ open(TMP,">$List");
+ foreach $key (sort keys(%found)) {
+ print TMP "$key\n" if ($found{$key} eq 1);
+}
+ close(TMP);
+ shift(@ARGV);
+}
+;