no bug - Do not lowercase tables names when looking for tables to drop

diff --git a/scripts/remove-non-public-data.pl b/scripts/remove-non-public-data.pl
index ce7948dd064a138ee2ad4b0594113797288e0bea..47c12346497ad1cc4b2546e8521469441d75ba5b 100755 (executable)
--- a/scripts/remove-non-public-data.pl
+++ b/scripts/remove-non-public-data.pl
@@ -155,7 +155,7 @@ foreach my $view (sort @{ $dbh->selectcol_arrayref("SHOW FULL TABLES IN $db_name
 
 # drop tables/columns
 
-my @tables = map { lc } sort @{ $dbh->selectcol_arrayref("SHOW TABLES") };
+my @tables = sort @{ $dbh->selectcol_arrayref("SHOW TABLES") };
 foreach my $table (@tables) {
     if (exists $whitelist{$table}) {
         my @drop_columns;