X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FSchema%2FLoader%2FDBI%2Fmysql.pm;h=1a3d7a8a604a83a65e7ac579302105c6c61b46e7;hb=a6900c9127d90a9bec26228a16f68a11cc13fb1d;hp=6b64ced6fb49b8df88f99b9e66ab2c5381d9ab6d;hpb=533d98c061845dd1d49e6ff94f7acee618b23764;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 6b64ced..1a3d7a8 100644 --- a/lib/DBIx/Class/Schema/Loader/DBI/mysql.pm +++ b/lib/DBIx/Class/Schema/Loader/DBI/mysql.pm @@ -9,10 +9,11 @@ use List::Util 'first'; use List::MoreUtils 'any'; use Try::Tiny; use Scalar::Util 'blessed'; +use DBIx::Class::Schema::Loader::Utils qw/sigwarn_silencer/; use namespace::clean; use DBIx::Class::Schema::Loader::Table (); -our $VERSION = '0.07029'; +our $VERSION = '0.07039'; =head1 NAME @@ -232,7 +233,7 @@ sub _columns_info_for { my ($precision, $scale, $column_type, $default) = eval { $self->dbh->selectrow_array(<<'EOF', {}, $table->name, lc($col)) }; SELECT numeric_precision, numeric_scale, column_type, column_default FROM information_schema.columns -WHERE table_name = ? AND lower(column_name) = ? +WHERE table_schema = schema() AND table_name = ? AND lower(column_name) = ? EOF my $has_information_schema = not $@; @@ -269,7 +270,7 @@ EOF delete $info->{extra}{list}; - while ($column_type =~ /'((?:[^']* (?:''|\\')* [^']*)* [^\\'])',?/xg) { + while ($column_type =~ /'((?:[^']* (?:''|\\')* [^']*)* [^\\']?)',?/xg) { my $el = $1; $el =~ s/''/'/g; push @{ $info->{extra}{list} }, $el; @@ -321,8 +322,9 @@ sub _extra_column_info { sub _dbh_column_info { my $self = shift; - local $SIG{__WARN__} = sub { warn @_ - unless $_[0] =~ /^column_info: unrecognized column type/ }; + local $SIG{__WARN__} = sigwarn_silencer( + qr/^column_info: unrecognized column type/ + ); $self->next::method(@_); }