diff options
author | Karl Berry <karl@freefriends.org> | 2007-10-08 16:57:09 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2007-10-08 16:57:09 +0000 |
commit | f57244a3af3d7a59bb330ac772ec782b71184f19 (patch) | |
tree | e8f569e5133059639124dd92bababbd40c02c02f /Build/cdbuild/tar2find.pl | |
parent | 19a42d9cc5c26f46914f065ba66498541203c092 (diff) |
move ctan2tds.pl and place to tlpkg/bin, logs to Build, remove rest
git-svn-id: svn://tug.org/texlive/trunk@5141 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/cdbuild/tar2find.pl')
-rwxr-xr-x | Build/cdbuild/tar2find.pl | 25 |
1 files changed, 0 insertions, 25 deletions
diff --git a/Build/cdbuild/tar2find.pl b/Build/cdbuild/tar2find.pl deleted file mode 100755 index 70e8925e87d..00000000000 --- a/Build/cdbuild/tar2find.pl +++ /dev/null @@ -1,25 +0,0 @@ -#!/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); -} -; |