diff options
author | Karl Berry <karl@freefriends.org> | 2006-02-06 00:12:54 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2006-02-06 00:12:54 +0000 |
commit | 535dd1c4401bbf2711e1ce0d5e9c50ffc6f9004b (patch) | |
tree | c8af3f859a53c3a34abe9855e9321ba22d50e024 /Master/Tools/tpm-factory.pl | |
parent | dd789d6487e7457dc3d694ebc434af129bb3fd33 (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-x | Master/Tools/tpm-factory.pl | 11 |
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"; + } } } } |