summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2008-04-30 12:36:43 +0000
committerNorbert Preining <preining@logic.at>2008-04-30 12:36:43 +0000
commit8e233884ea800533fe0e184c3655715dbec71346 (patch)
tree4ae628a8df928dbf6887fe1474ea96d00ce9b730
parent9012e39fe4153976f49bd22056aea273281c60d7 (diff)
make TLPOBJ faster
git-svn-id: svn://tug.org/texlive/trunk@7737 c570f23f-e606-0410-a88d-b1316a301751
-rw-r--r--Master/tlpkg/TeXLive/TLPOBJ.pm9
1 files changed, 7 insertions, 2 deletions
diff --git a/Master/tlpkg/TeXLive/TLPOBJ.pm b/Master/tlpkg/TeXLive/TLPOBJ.pm
index 2754ebba507..57284e31ba6 100644
--- a/Master/tlpkg/TeXLive/TLPOBJ.pm
+++ b/Master/tlpkg/TeXLive/TLPOBJ.pm
@@ -65,9 +65,14 @@ sub from_fh {
#while (my $line = $fh->getline) {
while (my $line = <$fh>) {
chomp($line);
- tllog($::LOG_DDDEBUG, "reading line: >>>$line<<<\n");
+ # we call tllog only in case that something will be called at all
+ # to speed things up
+ if ($::LOGLEVELTERMINAL >= $::LOG_DDDEBUG ||
+ $::LOGLEVELFILE >= $::LOG_DDDEBUG) {
+ tllog($::LOG_DDDEBUG, "reading line: >>>$line<<<\n");
+ }
$line =~ /^\s*#/ && next; # skip comment lines
- if ($line =~ /^\s*$/) {
+ if ($line =~ /^\s*$/o) {
if (!$started) { next; }
if (defined($multi)) {
# we may read from a tldb file