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

8
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 ); $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} ); $opt{dumpdir} = abs_path( $opt{dumpdir} );
if ( !-d $opt{dumpdir} ) { if ( ! -d $opt{dumpdir} ) {
infoprint "Directory $opt{dumpdir} does not exist"; infoprint("Directory $opt{dumpdir} does not exist");
infoprint "Creating directory $opt{dumpdir} ..."; infoprint("Creating directory $opt{dumpdir} ...");
mkdir $opt{dumpdir} or die "Cannot create directory $opt{dumpdir}: $!"; mkdir $opt{dumpdir} or die "Cannot create directory $opt{dumpdir}: $!";
} else { } else {
info "Directory $opt{dumpdir} already exists"; info "Directory $opt{dumpdir} already exists";