X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FSchema%2FLoader%2FDBI%2Fmysql.pm;h=62883a90c21697aba330aa1b2a998baa9479f911;hb=3fe9c5d92b3872c146c93f99b77aa330bffe04ef;hp=0ff0151747b8f63ed43fe0d51774e7b9e0ff3ec3;hpb=06f6541ca97da4e9e289b1c28c803779aff2f5d8;p=dbsrgits%2FDBIx-Class-Schema-Loader.git diff --git a/lib/DBIx/Class/Schema/Loader/DBI/mysql.pm b/lib/DBIx/Class/Schema/Loader/DBI/mysql.pm index 0ff0151..62883a9 100644 --- a/lib/DBIx/Class/Schema/Loader/DBI/mysql.pm +++ b/lib/DBIx/Class/Schema/Loader/DBI/mysql.pm @@ -6,7 +6,7 @@ use base 'DBIx::Class::Schema::Loader::DBI'; use Carp::Clan qw/^DBIx::Class/; use Class::C3; -our $VERSION = '0.03999_01'; +our $VERSION = '0.03999_02'; =head1 NAME @@ -27,6 +27,22 @@ See L. =cut +# had to override here because MySQL apparently +# doesn't support '%' syntax. Perhaps the other +# drivers support this syntax also, but I didn't +# want to risk breaking some esoteric DBD::foo version +# in a maint release... +sub _tables_list { + my $self = shift; + + my $dbh = $self->schema->storage->dbh; + my @tables = $dbh->tables(undef, $self->db_schema, undef, undef); + s/\Q$self->{_quoter}\E//g for @tables; + s/^.*\Q$self->{_namesep}\E// for @tables; + + return @tables; +} + sub _table_fk_info { my ($self, $table) = @_;