From 8e233884ea800533fe0e184c3655715dbec71346 Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Wed, 30 Apr 2008 12:36:43 +0000 Subject: make TLPOBJ faster git-svn-id: svn://tug.org/texlive/trunk@7737 c570f23f-e606-0410-a88d-b1316a301751 --- Master/tlpkg/TeXLive/TLPOBJ.pm | 9 +++++++-- 1 file 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 -- cgit v1.2.3