Lines 3022-3028
my $DBversion = "3.00.00.000";
Link Here
|
3022 |
next if $table->{Name} eq 'auth_subfield_table'; |
3022 |
next if $table->{Name} eq 'auth_subfield_table'; |
3023 |
if ($table->{Engine} ne 'InnoDB') { |
3023 |
if ($table->{Engine} ne 'InnoDB') { |
3024 |
print "moving $table->{Name} to InnoDB\n"; |
3024 |
print "moving $table->{Name} to InnoDB\n"; |
3025 |
$dbh->do("ALTER TABLE $table->{Name} TYPE = innodb"); |
3025 |
$dbh->do("ALTER TABLE $table->{Name} ENGINE = innodb"); |
3026 |
} |
3026 |
} |
3027 |
unless ($table->{Collation} =~ /^utf8/) { |
3027 |
unless ($table->{Collation} =~ /^utf8/) { |
3028 |
print "moving $table->{Name} to utf8\n"; |
3028 |
print "moving $table->{Name} to utf8\n"; |
3029 |
- |
|
|