diff options
| author | Norbert Preining <preining@logic.at> | 2008-04-30 12:36:43 +0000 |
|---|---|---|
| committer | Norbert Preining <preining@logic.at> | 2008-04-30 12:36:43 +0000 |
| commit | 8e233884ea800533fe0e184c3655715dbec71346 (patch) | |
| tree | 4ae628a8df928dbf6887fe1474ea96d00ce9b730 /Master/tlpkg | |
| parent | 9012e39fe4153976f49bd22056aea273281c60d7 (diff) | |
make TLPOBJ faster
git-svn-id: svn://tug.org/texlive/trunk@7737 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg')
| -rw-r--r-- | Master/tlpkg/TeXLive/TLPOBJ.pm | 9 |
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 |