diff options
| author | Norbert Preining <preining@logic.at> | 2008-05-28 15:30:42 +0000 |
|---|---|---|
| committer | Norbert Preining <preining@logic.at> | 2008-05-28 15:30:42 +0000 |
| commit | 3830b77c9141c060fd7e79f64f00b7481ddb9548 (patch) | |
| tree | f221efa7dcb400af450f115db0eb71534cf642c3 /Master/tlpkg/TeXLive/TLUtils.pm | |
| parent | 87ba328ba2dac3363c694c815b5e55bf7680419e (diff) | |
tlmgrgui: add debug button, rework the scrolling thingies, fix output
in info window to decent line length, add D/DD in front of logging output
git-svn-id: svn://tug.org/texlive/trunk@8386 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/TeXLive/TLUtils.pm')
| -rw-r--r-- | Master/tlpkg/TeXLive/TLUtils.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/Master/tlpkg/TeXLive/TLUtils.pm b/Master/tlpkg/TeXLive/TLUtils.pm index 2f4994aadee..ec77cdc4a40 100644 --- a/Master/tlpkg/TeXLive/TLUtils.pm +++ b/Master/tlpkg/TeXLive/TLUtils.pm @@ -1265,11 +1265,11 @@ sub info { } sub debug { - logit(\*STDOUT, 1, @_); + logit(\*STDOUT, 1, "D:", @_); } sub ddebug { - logit(\*STDOUT, 2, @_); + logit(\*STDOUT, 2, "DD:", @_); } sub tlwarn { @@ -1286,7 +1286,7 @@ sub process_logging_options { $::opt_quiet = 0; # check all the command line options for occurrences of -q and -v # do not report errors - my $oldconfig = Getopt::Long::Configure(qw(pass_through)); + my $oldconfig = Getopt::Long::Configure(qw(pass_through permute)); GetOptions("v+" => \$::opt_verbosity, "q" => \$::opt_quiet); Getopt::Long::Configure($oldconfig); } |