clones/MySQLTuner-perl
1
0
Fork 0
mirror of https://github.com/major/MySQLTuner-perl.git synced 2024-09-21 07:47:08 +00:00
Code Issues Packages Projects Releases Wiki Activity

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'}";
if ( $opt{'reportfile'} ne 0 ) {
eval "{ use Text::Template }";
eval {require Text::Template};
if ($@) {
badprint "Text::Template Module is needed.";
exit 1;
@ -4062,7 +4062,7 @@ sub dump_result {
close $fh;
}
if ( $opt{'json'} ne 0 ) {
eval "{ use JSON }";
eval {require JSON};
if ($@) {
print "JSON Module is needed.";
exit 1;