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

fix on error

Browse source
This commit is contained in:
Jean-Marie Renouard 2023-02-28 14:39:29 +01:00
parent 806295ccd9
commit 0113f77f27
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
mysqltuner.pl
View file

@ -187,11 +187,11 @@ if ( exists $opt{passenv} && exists $ENV{ $opt{passenv} } ) {
}
$opt{pass} = $opt{password} if ( $opt{pass} eq 0 and $opt{password} ne 0 );
if ($opt{dumpdir} ne "") {
if ($opt{dumpdir} ne '') {
$opt{dumpdir} = abs_path( $opt{dumpdir} );
if ( ! -d $opt{dumpdir} ) {
infoprint "Directory $opt{dumpdir} does not exist";
infoprint "Creating directory $opt{dumpdir} ...";
infoprint("Directory $opt{dumpdir} does not exist");
infoprint("Creating directory $opt{dumpdir} ...");
mkdir $opt{dumpdir} or die "Cannot create directory $opt{dumpdir}: $!";
} else {
info "Directory $opt{dumpdir} already exists";