summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-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