X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FSchema%2FLoader%2FDBI%2Fmysql.pm;h=3ce83c05215bea5d1c41d9eb4b1d111fbfefe3a6;hb=31bb159f43f561af6c604906febbdacd2a522e21;hp=705bc02c32ce9a3802c01890ef6c753923c85c33;hpb=adf7b1a93b48876325498612c0643ea7edc63618;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 705bc02..3ce83c0 100644 --- a/lib/DBIx/Class/Schema/Loader/DBI/mysql.pm +++ b/lib/DBIx/Class/Schema/Loader/DBI/mysql.pm @@ -32,7 +32,7 @@ sub _setup { $self->next::method(@_); - if (not defined $self->preserve_case) { + if (not $self->preserve_case) { $self->preserve_case(0); } @@ -65,7 +65,7 @@ sub _system_schemas { return ($self->next::method(@_), 'mysql'); } -sub _tables_list { +sub _tables_list { my ($self, $opts) = @_; return $self->next::method($opts, undef, undef);