summaryrefslogtreecommitdiff
path: root/Master/Tools/tpm-factory.pl
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2006-02-06 00:12:54 +0000
committerKarl Berry <karl@freefriends.org>2006-02-06 00:12:54 +0000
commit535dd1c4401bbf2711e1ce0d5e9c50ffc6f9004b (patch)
treec8af3f859a53c3a34abe9855e9321ba22d50e024 /Master/Tools/tpm-factory.pl
parentdd789d6487e7457dc3d694ebc434af129bb3fd33 (diff)
* Master/Tools/Tpm.pm (IgnoredFiles): remove bin dirs,
add .svn. * Master/Tools/FileUtils.pm (globexpand_push): respect IgnoredFiles. (backtrace): debugging routine. * Master/Tools/tpm-factory.pl (collect_files): debugging. * Master/Tools/update-tpm: allow --debug as an option. git-svn-id: svn://tug.org/texlive/trunk@1497 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/Tools/tpm-factory.pl')
-rwxr-xr-xMaster/Tools/tpm-factory.pl11
1 files changed, 7 insertions, 4 deletions
diff --git a/Master/Tools/tpm-factory.pl b/Master/Tools/tpm-factory.pl
index a1995b0c4de..34172b02d0b 100755
--- a/Master/Tools/tpm-factory.pl
+++ b/Master/Tools/tpm-factory.pl
@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/usr/bin/env perl
# $Id: //depot/Master/Tools/tpm-factory.pl#46 $ $Date: 2005/10/05 $ $Author: staw $
# Public domain.
#
@@ -235,9 +235,12 @@ sub collect_files {
if (-f "$path") {
$path =~ s@^${opt_master_dir}/@@;
$path =~ s@\\@/@g;
- if ($path !~ m@^${Tpm::IgnoredFiles}$@
-# && $path !~ m@^bin/win32-static/@
- ) { push @texmf_files, $path; }
+ unless ($path =~ m/^${Tpm::IgnoredFiles}$/) {
+ push @texmf_files, $path;
+ #warn "accepted $path\n";
+ } else {
+ ; #warn "ignored $path\n";
+ }
}
}
}