summaryrefslogtreecommitdiff
path: root/Master/tlpkg/TeXLive/TLTREE.pm
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2007-09-25 18:34:12 +0000
committerKarl Berry <karl@freefriends.org>2007-09-25 18:34:12 +0000
commitf1a5e2b8df9b699f128f7331de1f4667ce7dd611 (patch)
treea118821d17fa618d1579f8b965d934f20d32d5e4 /Master/tlpkg/TeXLive/TLTREE.pm
parent6dbf909c7fd74771a7f10f2c16902df20061ea83 (diff)
implicit debugging newlines, avoid -w arnings for patterns like "ignore" without a /
git-svn-id: svn://tug.org/texlive/trunk@5044 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/TeXLive/TLTREE.pm')
-rw-r--r--Master/tlpkg/TeXLive/TLTREE.pm11
1 files changed, 5 insertions, 6 deletions
diff --git a/Master/tlpkg/TeXLive/TLTREE.pm b/Master/tlpkg/TeXLive/TLTREE.pm
index 41d1dc2928f..01c56cdfa25 100644
--- a/Master/tlpkg/TeXLive/TLTREE.pm
+++ b/Master/tlpkg/TeXLive/TLTREE.pm
@@ -197,7 +197,6 @@ sub _get_matching_files {
my ($self, $type, $p) = @_;
my ($pattype,$patdata,@rest) = split ' ',$p;
my @matchfiles;
- &TeXLive::TLUtils::debug("check on $pattype,$patdata,@rest\n");
if ($pattype eq "t") {
@matchfiles = $self->_get_files_matching_dir_pattern($type,$patdata,@rest);
} elsif ($pattype eq "f") {
@@ -209,7 +208,7 @@ sub _get_matching_files {
} else {
die "Unknown pattern $p";
}
- TeXLive::TLUtils::debug("DEBUG: p=$p, matchfiles=@matchfiles\n");
+ TeXLive::TLUtils::debug("p=$p; matchfiles=@matchfiles");
return @matchfiles;
}
@@ -235,18 +234,18 @@ 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\n");
+ &TeXLive::TLUtils::debug("matching $f in $dirpart via glob $globline");
if ($f =~ /^$basepart$/) {
- &TeXLive::TLUtils::debug("hit: globline=$globline, $dirpart/$f\n");
+ &TeXLive::TLUtils::debug("hit: globline=$globline, $dirpart/$f");
push @returnfiles, "$dirpart/$f";
}
}
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}\n");
+ &TeXLive::TLUtils::debug("matching $f in $dirpart via glob $globline.{bat/exe}");
if ($f =~ /^$basepart\.(bat|exe|dll)$/) {
- &TeXLive::TLUtils::debug("hit: globline=$globline, $dirpart/$f\n");
+ &TeXLive::TLUtils::debug("hit: globline=$globline, $dirpart/$f");
push @returnfiles, "$dirpart/$f";
}
}