|
Lines 833-838
Link Here
|
| 833 |
}); |
833 |
}); |
| 834 |
|
834 |
|
| 835 |
my @dbh_tables = eval { $dbh->tables() }; |
835 |
my @dbh_tables = eval { $dbh->tables() }; |
|
|
836 |
map { s/^.*?\.//o } @dbh_tables; |
| 836 |
|
837 |
|
| 837 |
## Remove quotes around table names |
838 |
## Remove quotes around table names |
| 838 |
my $quote = $dbh->get_info(29); # SQL_IDENTIFIER_QUOTE_CHAR |
839 |
my $quote = $dbh->get_info(29); # SQL_IDENTIFIER_QUOTE_CHAR |
