diff options
-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; |