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

Can't locate Data/Dumper.pm in @INC #564

Browse source
This commit is contained in:
Jean-Marie Renouard 2021-10-15 13:43:07 +02:00
parent d04c1c46dc
commit c0251a1488
1 changed files with 12 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

24
mysqltuner.pl
View file

@ -1,5 +1,5 @@
#!/usr/bin/env perl #!/usr/bin/env perl
# mysqltuner.pl - Version 1.8.2 # mysqltuner.pl - Version 1.8.3
# High Performance MySQL Tuning Script # High Performance MySQL Tuning Script
# Copyright (C) 2006-2021 Major Hayden - major@mhtx.net # Copyright (C) 2006-2021 Major Hayden - major@mhtx.net
# #
@ -49,14 +49,14 @@ use Pod::Usage;
use File::Basename; use File::Basename;
use Cwd 'abs_path'; use Cwd 'abs_path';
use Data::Dumper; #use Data::Dumper;
$Data::Dumper::Pair = " : "; #$Data::Dumper::Pair = " : ";
# for which() # for which()
#use Env; #use Env;
# Set up a few variables for use in the script # Set up a few variables for use in the script
my $tunerversion = "1.8.2"; my $tunerversion = "1.8.3";
my ( @adjvars, @generalrec ); my ( @adjvars, @generalrec );
# Set defaults # Set defaults
@ -1175,7 +1175,7 @@ sub get_all_vars {
$result{'Storage Engines'}{$engine} = $2; $result{'Storage Engines'}{$engine} = $2;
} }
} }
debugprint Dumper(@mysqlenginelist); #debugprint Dumper(@mysqlenginelist);
my @mysqlslave; my @mysqlslave;
if ( mysql_version_eq(8) or mysql_version_ge( 10, 5 ) ) { if ( mysql_version_eq(8) or mysql_version_ge( 10, 5 ) ) {
@ -1457,7 +1457,7 @@ sub get_opened_ports {
$v; $v;
} @opened_ports; } @opened_ports;
@opened_ports = sort { $a <=> $b } grep { !/^$/ } @opened_ports; @opened_ports = sort { $a <=> $b } grep { !/^$/ } @opened_ports;
debugprint Dumper \@opened_ports; #debugprint Dumper \@opened_ports;
$result{'Network'}{'TCP Opened'} = \@opened_ports; $result{'Network'}{'TCP Opened'} = \@opened_ports;
return @opened_ports; return @opened_ports;
} }
@ -1864,7 +1864,7 @@ sub security_recommendations {
# Looking for Anonymous users # Looking for Anonymous users
my @mysqlstatlist = select_array my @mysqlstatlist = select_array
"SELECT CONCAT(QUOTE(user), '\@', QUOTE(host)) FROM mysql.user WHERE TRIM(USER) = '' OR USER IS NULL"; "SELECT CONCAT(QUOTE(user), '\@', QUOTE(host)) FROM mysql.user WHERE TRIM(USER) = '' OR USER IS NULL";
debugprint Dumper \@mysqlstatlist; #debugprint Dumper \@mysqlstatlist;
#exit 0; #exit 0;
if (@mysqlstatlist) { if (@mysqlstatlist) {
@ -2363,7 +2363,7 @@ sub check_storage_engines {
# Parse through the table list to generate storage engine counts/statistics # Parse through the table list to generate storage engine counts/statistics
$fragtables = 0; $fragtables = 0;
foreach my $tbl (@tblist) { foreach my $tbl (@tblist) {
debugprint "Data dump " . Dumper(@$tbl); #debugprint "Data dump " . Dumper(@$tbl);
my ( $engine, $size, $datafree ) = @$tbl; my ( $engine, $size, $datafree ) = @$tbl;
next if $engine eq 'NULL' or not defined($engine); next if $engine eq 'NULL' or not defined($engine);
$size = 0 if $size eq 'NULL' or not defined($size); $size = 0 if $size eq 'NULL' or not defined($size);
@ -5363,7 +5363,7 @@ sub get_wsrep_options {
push @galera_options, ' wsrep_slave_threads = ' . $wsrep_slave_threads; push @galera_options, ' wsrep_slave_threads = ' . $wsrep_slave_threads;
@galera_options = remove_cr @galera_options; @galera_options = remove_cr @galera_options;
@galera_options = remove_empty @galera_options; @galera_options = remove_empty @galera_options;
debugprint Dumper( \@galera_options ); #debugprint Dumper( \@galera_options );
return @galera_options; return @galera_options;
} }
@ -5695,7 +5695,7 @@ having sum(if(c.column_key in ('PRI','UNI'), 1,0)) = 0"
debugprint "WSREP: $key = $mystat{$key}"; debugprint "WSREP: $key = $mystat{$key}";
} }
} }
debugprint Dumper get_wsrep_options(); #debugprint Dumper get_wsrep_options();
} }
# Recommendations for InnoDB # Recommendations for InnoDB
@ -6464,7 +6464,7 @@ END_TEMPLATE
} }
sub dump_result { sub dump_result {
debugprint Dumper( \%result ) if ( $opt{'debug'} ); #debugprint Dumper( \%result ) if ( $opt{'debug'} );
debugprint "HTML REPORT: $opt{'reportfile'}"; debugprint "HTML REPORT: $opt{'reportfile'}";
if ( $opt{'reportfile'} ne 0 ) { if ( $opt{'reportfile'} ne 0 ) {
@ -6594,7 +6594,7 @@ __END__
=head1 NAME =head1 NAME
MySQLTuner 1.8.2 - MySQL High Performance Tuning Script MySQLTuner 1.8.3 - MySQL High Performance Tuning Script
=head1 IMPORTANT USAGE GUIDELINES =head1 IMPORTANT USAGE GUIDELINES