X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FSchema%2FLoader%2FRelBuilder%2FCompat%2Fv0_06.pm;h=362d35a87367240ac90ea57f96a026da8deb6ec2;hb=f671b6308c4f2210255b2eaa12fc47a49621d436;hp=8a016744d82f72e91f2f097af0da05480170dc48;hpb=19b7d71c67672e15f11ca6772963170fd6c6b588;p=dbsrgits%2FDBIx-Class-Schema-Loader.git diff --git a/lib/DBIx/Class/Schema/Loader/RelBuilder/Compat/v0_06.pm b/lib/DBIx/Class/Schema/Loader/RelBuilder/Compat/v0_06.pm index 8a01674..362d35a 100644 --- a/lib/DBIx/Class/Schema/Loader/RelBuilder/Compat/v0_06.pm +++ b/lib/DBIx/Class/Schema/Loader/RelBuilder/Compat/v0_06.pm @@ -2,16 +2,18 @@ package DBIx::Class::Schema::Loader::RelBuilder::Compat::v0_06; use strict; use warnings; -use Class::C3; +use mro 'c3'; use base 'DBIx::Class::Schema::Loader::RelBuilder'; use Carp::Clan qw/^DBIx::Class/; use Lingua::EN::Inflect::Phrase (); -our $VERSION = '0.07000'; +our $VERSION = '0.07002'; sub _normalize_name { my ($self, $name) = @_; + $name = $self->_sanitize_name($name); + return lc $name; }