summaryrefslogtreecommitdiff
path: root/Master/tlpkg/TeXLive/TLTREE.pm
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2007-06-28 09:11:24 +0000
committerNorbert Preining <preining@logic.at>2007-06-28 09:11:24 +0000
commitf82d752fb1943968e50950f963a3b1623b417963 (patch)
treee7b3f8f57a6d7320f140c316e54a588834172726 /Master/tlpkg/TeXLive/TLTREE.pm
parentb5d5393562c31c26d21b7249b794467cf2afbe51 (diff)
intelligent patterns for win32:
- patterns of the form "f bin/${ARCH}/foobar" also match "bin/win32/foobar.exe/.bat" - document the changes in TLPSRC.pm and update the man page - add a note to the specification and Perl-API that the man pages are more up2date - update TODO since many things are fixed - update the tlpsrc files (remove the useless win32/...exe entries - update texlive.tlpdb git-svn-id: svn://tug.org/texlive/trunk@4520 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/TeXLive/TLTREE.pm')
-rw-r--r--Master/tlpkg/TeXLive/TLTREE.pm20
1 files changed, 13 insertions, 7 deletions
diff --git a/Master/tlpkg/TeXLive/TLTREE.pm b/Master/tlpkg/TeXLive/TLTREE.pm
index 39c650665b6..1246a6893a9 100644
--- a/Master/tlpkg/TeXLive/TLTREE.pm
+++ b/Master/tlpkg/TeXLive/TLTREE.pm
@@ -176,9 +176,7 @@ sub get_matching_files {
my %returnfiles;
foreach $a (@Architectures) {
# return empty list of arch!=win32 and pattern matches bin/win32
- # this is a special case to treat with tlsrc files auto generated
- # from tpm files
- if (($p =~ m@f bin/win32/@) && ($a ne "win32")) {
+ if (($p =~ m@f bin/win32/@) && ($a ne "win32")) {
$returnfiles{$a} = [ ];
next;
}
@@ -204,7 +202,7 @@ sub _get_matching_files {
if ($pattype eq "t") {
@matchfiles = $self->_get_files_matching_dir_pattern($type,$patdata,@rest);
} elsif ($pattype eq "f") {
- @matchfiles = $self->_get_files_matching_glob_pattern($type,$patdata);
+ @matchfiles = $self->_get_files_matching_glob_pattern($type,$patdata,$arch);
} elsif ($pattype eq "r") {
@matchfiles = $self->_get_files_matching_regexp_pattern($type,$patdata);
} elsif ($pattype eq "d") {
@@ -244,6 +242,16 @@ sub _get_files_matching_glob_pattern {
push @returnfiles, "$dirpart/$f";
}
}
+ if ($dirpart =~ m@^bin/win32@) {
+ # for arch=win32 under bin we also want to match .bat and .exe files
+ foreach my $f (@candfiles) {
+ &TeXLive::TLUtils::debug("matching $f in $dirpart via glob $globline.{bat/exe}\n");
+ if ($f =~ /^$basepart\.(bat|exe)$/) {
+ &TeXLive::TLUtils::debug("hit: globline=$globline, $dirpart/$f\n");
+ push @returnfiles, "$dirpart/$f";
+ }
+ }
+ }
return(@returnfiles);
}
@@ -306,8 +314,6 @@ sub architectures {
return @Architectures;
}
-
-
1;
### Local Variables:
@@ -315,4 +321,4 @@ sub architectures {
### tab-width: 2
### indent-tabs-mode: nil
### End:
-# vim:set tabstop=2: #
+# vim:set tabstop=2 expandtab: #