X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FSchema%2FLoader%2FDBI%2Fmysql.pm;h=69d1dafd694150ef93e97e74b6f61996fbcb1fa7;hb=dc783fab900d073db1fb0e86b709cbb65bd364b7;hp=b79bea48d46b5a6150c24220c48ec5c64510f7a1;hpb=6bef66965f54b025022273482bc134fdc58790b2;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 b79bea4..69d1daf 100644 --- a/lib/DBIx/Class/Schema/Loader/DBI/mysql.pm +++ b/lib/DBIx/Class/Schema/Loader/DBI/mysql.pm @@ -12,7 +12,7 @@ use DBIx::Class::Schema::Loader::Utils qw/sigwarn_silencer/; use namespace::clean; use DBIx::Class::Schema::Loader::Table (); -our $VERSION = '0.07043'; +our $VERSION = '0.07045'; =head1 NAME @@ -105,7 +105,7 @@ sub _table_fk_info { local $self->{db_schema} = [ $f_schema ] if $f_schema; first { - lc($_->name) eq lc($f_table) + lc($_->name) eq lc($f_table) && ((not $f_schema) || lc($_->schema) eq lc($f_schema)) } $self->_tables_list; }; @@ -368,9 +368,9 @@ sub _column_comment { L, L, L -=head1 AUTHOR +=head1 AUTHORS -See L and L. +See L. =head1 LICENSE