summaryrefslogtreecommitdiff
path: root/Master
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2008-11-19 10:34:42 +0000
committerNorbert Preining <preining@logic.at>2008-11-19 10:34:42 +0000
commit1ec0c9c3f46e7f84ac8717c165abb9928d197079 (patch)
tree2139769f9f8207c367f22c69f63df1c11ad28474 /Master
parent0bbece80040b814d746ab1a7fa79f7f830c092e2 (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.pm2
-rw-r--r--Master/tlpkg/TeXLive/TLUtils.pm10
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