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

fix 'Expression form of "eval"'

Browse source
This commit is contained in:
Christian Loos 2016-08-30 14:50:36 +02:00
parent 90e8251523
commit 7215e419df
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
mysqltuner.pl
View file

@ -4038,7 +4038,7 @@ sub dump_result {
debugprint "HTML REPORT: $opt{'reportfile'}"; debugprint "HTML REPORT: $opt{'reportfile'}";
if ( $opt{'reportfile'} ne 0 ) { if ( $opt{'reportfile'} ne 0 ) {
eval "{ use Text::Template }"; eval {require Text::Template};
if ($@) { if ($@) {
badprint "Text::Template Module is needed."; badprint "Text::Template Module is needed.";
exit 1; exit 1;
@ -4062,7 +4062,7 @@ sub dump_result {
close $fh; close $fh;
} }
if ( $opt{'json'} ne 0 ) { if ( $opt{'json'} ne 0 ) {
eval "{ use JSON }"; eval {require JSON};
if ($@) { if ($@) {
print "JSON Module is needed."; print "JSON Module is needed.";
exit 1; exit 1;