diff options
| author | Norbert Preining <preining@logic.at> | 2008-06-04 05:16:51 +0000 |
|---|---|---|
| committer | Norbert Preining <preining@logic.at> | 2008-06-04 05:16:51 +0000 |
| commit | b20bc44b59e2c55898787ee600cec92081e6d8df (patch) | |
| tree | 4e6e39e96da652fcf0ca4213e64b1300f88a3a76 /Master | |
| parent | ef0d97055006428ff4eed5a6f059693bc996c72f (diff) | |
TLUtils.pm: add a sub "log" which *only* logs to the log file
git-svn-id: svn://tug.org/texlive/trunk@8533 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master')
| -rw-r--r-- | Master/tlpkg/TeXLive/TLUtils.pm | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/Master/tlpkg/TeXLive/TLUtils.pm b/Master/tlpkg/TeXLive/TLUtils.pm index ec77cdc4a40..653804e2aae 100644 --- a/Master/tlpkg/TeXLive/TLUtils.pm +++ b/Master/tlpkg/TeXLive/TLUtils.pm @@ -1272,6 +1272,15 @@ sub ddebug { logit(\*STDOUT, 2, "DD:", @_); } +sub log { + # warning should always done to stderr and the log file, + # independently from the verbosity level + my $savequiet = $::opt_quiet; + $::opt_quiet = 0; + _logit('file', -100, @rest); + $::opt_quiet = $savequiet; +} + sub tlwarn { # warning should always done to stderr and the log file, # independently from the verbosity level |