summaryrefslogtreecommitdiff
path: root/Master/tlpkg/TeXLive/TLTREE.pm
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2008-01-10 10:53:59 +0000
committerNorbert Preining <preining@logic.at>2008-01-10 10:53:59 +0000
commit5ab926badb5ad24f8b4b994ad5f18f0d2b3a6953 (patch)
tree09714be5b47fa1659d69008e5fb3e574f5e106d7 /Master/tlpkg/TeXLive/TLTREE.pm
parentfdf785af06cac0cef5125a27f55f2b12bacb6d9a (diff)
add logging facilities, see extra email
git-svn-id: svn://tug.org/texlive/trunk@6176 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/TeXLive/TLTREE.pm')
-rw-r--r--Master/tlpkg/TeXLive/TLTREE.pm10
1 files changed, 5 insertions, 5 deletions
diff --git a/Master/tlpkg/TeXLive/TLTREE.pm b/Master/tlpkg/TeXLive/TLTREE.pm
index a1cbb4279f7..7b9c70d7abc 100644
--- a/Master/tlpkg/TeXLive/TLTREE.pm
+++ b/Master/tlpkg/TeXLive/TLTREE.pm
@@ -219,7 +219,7 @@ sub _get_matching_files {
} else {
die "Unknown pattern $p";
}
- TeXLive::TLUtils::debug("p=$p; matchfiles=@matchfiles");
+ tllog($::LOG_DDDEBUG, "p=$p; matchfiles=@matchfiles\n");
return @matchfiles;
}
@@ -245,9 +245,9 @@ sub _get_files_matching_glob_pattern {
return unless (defined($self->{'_filesofdir'}{$dirpart}));
my @candfiles = @{$self->{'_filesofdir'}{$dirpart}};
foreach my $f (@candfiles) {
- &TeXLive::TLUtils::debug("matching $f in $dirpart via glob $globline");
+ tllog($::LOG_DDDEBUG, "matching $f in $dirpart via glob $globline\n");
if ($f =~ /^$basepart$/) {
- &TeXLive::TLUtils::debug("hit: globline=$globline, $dirpart/$f");
+ tllog($::LOG_DDDEBUG, "hit: globline=$globline, $dirpart/$f\n");
if ("$dirpart" eq ".") {
push @returnfiles, "$f";
} else {
@@ -258,9 +258,9 @@ sub _get_files_matching_glob_pattern {
if ($dirpart =~ m@^bin/win32@) {
# for arch=win32 under bin we also want to match .dll, .bat, .exe files
foreach my $f (@candfiles) {
- &TeXLive::TLUtils::debug("matching $f in $dirpart via glob $globline.{bat/exe}");
+ tllog($::LOG_DDDEBUG, "matching $f in $dirpart via glob $globline.{bat/exe}\n");
if ($f =~ /^$basepart\.(bat|exe|dll)$/) {
- &TeXLive::TLUtils::debug("hit: globline=$globline, $dirpart/$f");
+ tllog($::LOG_DDDEBUG, "hit: globline=$globline, $dirpart/$f\n");
if ("$dirpart" eq ".") {
push @returnfiles, "$f";
} else {