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

fix 'Nested named subroutine'

Browse source
This commit is contained in:
Christian Loos 2016-08-30 13:16:33 +02:00
parent a7062ad804
commit f3e3b39023
1 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
mysqltuner.pl
View file

@ -366,12 +366,12 @@ sub pretty_uptime {
# Retrieves the memory installed on this machine # Retrieves the memory installed on this machine
my ( $physical_memory, $swap_memory, $duflags ); my ( $physical_memory, $swap_memory, $duflags );
sub os_setup { sub memerror {
sub memerror {
badprint "Unable to determine total memory/swap; use '--forcemem' and '--forceswap'"; badprint "Unable to determine total memory/swap; use '--forcemem' and '--forceswap'";
exit 1; exit 1;
} }
sub os_setup {
my $os = `uname`; my $os = `uname`;
$duflags = ( $os =~ /Linux/ ) ? '-b' : ''; $duflags = ( $os =~ /Linux/ ) ? '-b' : '';
if ( $opt{'forcemem'} > 0 ) { if ( $opt{'forcemem'} > 0 ) {