[Bast-commits] r6439 -
branches/DBIx-Class-Schema-Loader/odbc-mssql/lib/DBIx/Class/Schema/Loader/DBI
caelum at dev.catalyst.perl.org
caelum at dev.catalyst.perl.org
Wed May 27 04:40:40 GMT 2009
Author: caelum
Date: 2009-05-27 04:40:39 +0000 (Wed, 27 May 2009)
New Revision: 6439
Modified:
branches/DBIx-Class-Schema-Loader/odbc-mssql/lib/DBIx/Class/Schema/Loader/DBI/ODBC.pm
Log:
_rebless for odbc
Modified: branches/DBIx-Class-Schema-Loader/odbc-mssql/lib/DBIx/Class/Schema/Loader/DBI/ODBC.pm
===================================================================
--- branches/DBIx-Class-Schema-Loader/odbc-mssql/lib/DBIx/Class/Schema/Loader/DBI/ODBC.pm 2009-05-27 04:34:59 UTC (rev 6438)
+++ branches/DBIx-Class-Schema-Loader/odbc-mssql/lib/DBIx/Class/Schema/Loader/DBI/ODBC.pm 2009-05-27 04:40:39 UTC (rev 6439)
@@ -35,7 +35,10 @@
# Translate the backend name into a perl identifier
$dbtype =~ s/\W/_/gi;
my $class = "DBIx::Class::Schema::Loader::DBI::ODBC::${dbtype}";
- bless $self, $class if $self->load_optional_class($class);
+ if ($self->load_optional_class($class) && !$self->isa($class)) {
+ bless $self, $class;
+ $self->_rebless;
+ }
}
}
More information about the Bast-commits
mailing list