X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FStorage%2FDBI%2FODBC.pm;h=7c3b739230c54f62a264f5cb0f43911340f1e082;hb=e6d6286068a0c2cba2e7026cfdddfbeb512a0770;hp=40d12aaae9a5929a3098fee7c5768d9374501c25;hpb=4a9a13c8eb382398293df0c3a6c8652ee4a18db1;p=dbsrgits%2FDBIx-Class.git diff --git a/lib/DBIx/Class/Storage/DBI/ODBC.pm b/lib/DBIx/Class/Storage/DBI/ODBC.pm index 40d12aa..7c3b739 100644 --- a/lib/DBIx/Class/Storage/DBI/ODBC.pm +++ b/lib/DBIx/Class/Storage/DBI/ODBC.pm @@ -3,11 +3,13 @@ use strict; use warnings; use base qw/DBIx::Class::Storage::DBI/; +use mro 'c3'; sub _rebless { my ($self) = @_; - my $dbtype = eval { $self->dbh->get_info(17) }; + my $dbtype = eval { $self->last_dbh->get_info(17) }; + unless ( $@ ) { # Translate the backend name into a perl identifier $dbtype =~ s/\W/_/gi;