diff options
author | Karl Berry <karl@freefriends.org> | 2008-11-19 00:31:39 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2008-11-19 00:31:39 +0000 |
commit | 514d9d8adac97bb5adf92611a48c1d454ad174d2 (patch) | |
tree | 5364fc5ff05158aae7c682732322c3b3268f8154 /Master | |
parent | 92bb37dfe4d1b0f624e9a2161693982f504b6f88 (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')
-rw-r--r-- | Master/tlpkg/TeXLive/TLUtils.pm | 15 |
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; |