summaryrefslogtreecommitdiff
path: root/Master/tlpkg/TeXLive
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2008-11-19 00:31:39 +0000
committerKarl Berry <karl@freefriends.org>2008-11-19 00:31:39 +0000
commit514d9d8adac97bb5adf92611a48c1d454ad174d2 (patch)
tree5364fc5ff05158aae7c682732322c3b3268f8154 /Master/tlpkg/TeXLive
parent92bb37dfe4d1b0f624e9a2161693982f504b6f88 (diff)
(process_logging_options): accept -vv as a special case.
git-svn-id: svn://tug.org/texlive/trunk@11349 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/TeXLive')
-rw-r--r--Master/tlpkg/TeXLive/TLUtils.pm15
1 files changed, 11 insertions, 4 deletions
diff --git a/Master/tlpkg/TeXLive/TLUtils.pm b/Master/tlpkg/TeXLive/TLUtils.pm
index 11b7ae882a6..d3533a920ee 100644
--- a/Master/tlpkg/TeXLive/TLUtils.pm
+++ b/Master/tlpkg/TeXLive/TLUtils.pm
@@ -1704,8 +1704,8 @@ Omit normal informational messages.
=item B<-v>
Include debugging messages; repeat for maximum debugging, as in C<-v
--v>. (C<-vv> does not work, sorry to say.) Further repeats, as in
-C<-v -v -v>, are accepted but ignored.
+-v> or C<-vv>. Further repeats of C<-v>, as in C<-v -v -v>, are accepted but
+ignored. C<-vvv> is an error.
=item B<-logfile> I<file>
@@ -1725,13 +1725,20 @@ sub process_logging_options {
$::opt_verbosity = 0;
$::opt_quiet = 0;
my $opt_logfile;
- # check all the command line options for occurrences of -q and -v
- # do not report errors
+ my $opt_Verbosity = 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 permute));
GetOptions("logfile=s" => \$opt_logfile,
"v+" => \$::opt_verbosity,
+ "vv" => \$opt_Verbosity,
"q" => \$::opt_quiet);
Getopt::Long::Configure($oldconfig);
+
+ # verbosity level, forcing -v -v instead of -vv is too annoying.
+ $::opt_verbosity = 2 if $opt_Verbosity;
+
+ # open log file if one was requested.
if ($opt_logfile) {
open(TLUTILS_LOGFILE, ">$opt_logfile") || die "open(>$opt_logfile) failed: $!\n";
$::LOGFILE = \*TLUTILS_LOGFILE;