Fix warning due uninitialized var

"Use of uninitialized value in concatenation"

diff --git a/lib/SQL/Translator/Parser/DBI/MySQL.pm b/lib/SQL/Translator/Parser/DBI/MySQL.pm
index 8bd8a06..3512fb7 100644 (file)
--- a/lib/SQL/Translator/Parser/DBI/MySQL.pm
+++ b/lib/SQL/Translator/Parser/DBI/MySQL.pm
@@ -37,7 +37,7 @@ sub parse {
 
     $dbh->{'FetchHashKeyName'} = 'NAME_lc';
 
-    my $create;
+    my $create = q{};
     for my $table_name ( @table_names ) {
         next if (grep /^$table_name$/, @skip_tables);
         my $sth = $dbh->prepare("show create table $table_name");