mirror of
https://github.com/MariaDB/server.git
synced 2025-07-27 18:02:13 +03:00
MDEV-28931 --verbose option is too verbose
GetOpt::Long bundling option for convenient one-char verbosity levels: -v General verbosity (file and execute operations) -vv High verbosity (algorithmic considerations) -vvv Debug verbosity (anything else)
This commit is contained in:
@ -27,7 +27,7 @@ use Sys::Hostname;
|
||||
use base qw(Exporter);
|
||||
our @EXPORT= qw(report_option mtr_print_line mtr_print_thick_line
|
||||
mtr_print_header mtr_report mtr_report_stats
|
||||
mtr_warning mtr_error mtr_debug mtr_verbose
|
||||
mtr_warning mtr_error mtr_debug mtr_verbose mtr_verbose2
|
||||
mtr_verbose_restart mtr_report_test_passed
|
||||
mtr_report_test_skipped mtr_print
|
||||
mtr_report_test isotime);
|
||||
@ -716,6 +716,15 @@ sub mtr_verbose (@) {
|
||||
}
|
||||
|
||||
|
||||
sub mtr_verbose2 (@) {
|
||||
if ( $verbose > 1 )
|
||||
{
|
||||
print STDERR _name(). _timestamp().
|
||||
"> ".join(" ", @_)."\n";
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
sub mtr_verbose_restart (@) {
|
||||
my ($server, @args)= @_;
|
||||
my $proc= $server->{proc};
|
||||
|
Reference in New Issue
Block a user