diff options
| author | Norbert Preining <preining@logic.at> | 2008-11-19 10:34:42 +0000 |
|---|---|---|
| committer | Norbert Preining <preining@logic.at> | 2008-11-19 10:34:42 +0000 |
| commit | 1ec0c9c3f46e7f84ac8717c165abb9928d197079 (patch) | |
| tree | 2139769f9f8207c367f22c69f63df1c11ad28474 /Master/tlpkg/TeXLive/TLPOBJ.pm | |
| parent | 0bbece80040b814d746ab1a7fa79f7f830c092e2 (diff) | |
add another level of debugging, dddebug, which is currently only used
for echoing all lines of the tlpdb while reading
git-svn-id: svn://tug.org/texlive/trunk@11360 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/TeXLive/TLPOBJ.pm')
| -rw-r--r-- | Master/tlpkg/TeXLive/TLPOBJ.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Master/tlpkg/TeXLive/TLPOBJ.pm b/Master/tlpkg/TeXLive/TLPOBJ.pm index 3cba91a6600..30c68fa9b14 100644 --- a/Master/tlpkg/TeXLive/TLPOBJ.pm +++ b/Master/tlpkg/TeXLive/TLPOBJ.pm @@ -77,7 +77,7 @@ sub from_fh { chomp($line); # we call tllog only when something will be logged, to speed things up. # this is the inner loop bounding the time to read tlpdb. - ddebug("reading line: >>>$line<<<\n") if ($::opt_verbosity >= 2); + dddebug("reading line: >>>$line<<<\n") if ($::opt_verbosity >= 3); $line =~ /^\s*#/ && next; # skip comment lines if ($line =~ /^\s*$/o) { if (!$started) { next; } |