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

Update mysqltuner.pl

Browse source
This commit is contained in:
Long Radix 2023-03-16 15:03:34 +01:00 committed by GitHub
parent fa2cfe9a5f
commit 02a022c064
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
mysqltuner.pl
View file

@ -2406,7 +2406,7 @@ sub check_storage_engines {
} }
elsif ( mysql_version_ge( 5, 1, 5 ) ) { elsif ( mysql_version_ge( 5, 1, 5 ) ) {
my @engineresults = select_array my @engineresults = select_array
"SELECT ENGINE,SUPPORT FROM information_schema.ENGINES WHERE ENGINE NOT IN ('performance_schema','MyISAM','MERGE','MEMORY') ORDER BY ENGINE ASC"; "SELECT ENGINE, SUPPORT FROM information_schema.ENGINES WHERE ENGINE NOT IN ('MyISAM', 'MERGE', 'MEMORY') ORDER BY ENGINE";
foreach my $line (@engineresults) { foreach my $line (@engineresults) {
my ( $engine, $engineenabled ); my ( $engine, $engineenabled );
( $engine, $engineenabled ) = $line =~ /([a-zA-Z_]*)\s+([a-zA-Z]+)/; ( $engine, $engineenabled ) = $line =~ /([a-zA-Z_]*)\s+([a-zA-Z]+)/;