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 | |
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')
-rw-r--r-- | Master/tlpkg/TeXLive/TLPOBJ.pm | 2 | ||||
-rw-r--r-- | Master/tlpkg/TeXLive/TLUtils.pm | 10 |
2 files changed, 9 insertions, 3 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; } diff --git a/Master/tlpkg/TeXLive/TLUtils.pm b/Master/tlpkg/TeXLive/TLUtils.pm index da2fcd4fc2d..b3d328f5a44 100644 --- a/Master/tlpkg/TeXLive/TLUtils.pm +++ b/Master/tlpkg/TeXLive/TLUtils.pm @@ -113,8 +113,8 @@ BEGIN { &give_ctan_mirror &tlmd5 ); - @EXPORT = qw(setup_programs download_file info log debug ddebug tlwarn - process_logging_options win32); + @EXPORT = qw(setup_programs download_file info log debug ddebug dddebug + tlwarn process_logging_options win32); } use Cwd; @@ -1626,6 +1626,12 @@ sub ddebug { logit(\*STDOUT, 2, "DD:", @_); } +sub dddebug { + return if ($::opt_verbosity < 3); + logit(\*STDOUT, 3, "DDD:", @_); +} + + sub log { # warning should always done to stderr and the log file, # independently from the verbosity level |