hhf/MySQLTuner-perl
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Latest version has a regression with colored outout #371

Browse source
This commit is contained in:
Jean-Marie RENOUARD 2018-02-23 12:34:32 +01:00
parent 94f8dad080
commit 760adf20b5
1 changed files with 4 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
mysqltuner.pl
View file

@ -67,6 +67,7 @@ my %opt = (
"noinfo" => 0, "noinfo" => 0,
"debug" => 0, "debug" => 0,
"nocolor" => ( !-t STDOUT ), "nocolor" => ( !-t STDOUT ),
"color" => 0,
"forcemem" => 0, "forcemem" => 0,
"forceswap" => 0, "forceswap" => 0,
"host" => 0, "host" => 0,
@ -120,7 +121,7 @@ GetOptions(
'verbose', 'sysstat', 'verbose', 'sysstat',
'password=s', 'pfstat', 'password=s', 'pfstat',
'passenv=s', 'userenv=s', 'passenv=s', 'userenv=s',
'defaults-file=s', 'ssl-ca=s' 'defaults-file=s', 'ssl-ca=s', 'color'
) )
or pod2usage( or pod2usage(
-exitval => 1, -exitval => 1,
@ -199,6 +200,8 @@ open( $fh, '>', $outputfile )
if defined($outputfile); if defined($outputfile);
$opt{nocolor} = 1 if defined($outputfile); $opt{nocolor} = 1 if defined($outputfile);
$opt{nocolor} = 1 unless(-t STDOUT); $opt{nocolor} = 1 unless(-t STDOUT);
$opt{nocolor} = 0 if ($opt{color} == 1);
# Setting up the colors for the print styles # Setting up the colors for the print styles
my $me = `whoami`; my $me = `whoami`;
$me =~ s/\n//g; $me =~ s/\n//g;