[Bast-commits] r6438 - branches/DBIx-Class-Schema-Loader/odbc-mssql/lib/DBIx/Class/Schema/Loader/DBI

[caelum at dev.catalyst.perl.org]

Author: caelum
Date: 2009-05-27 04:34:59 +0000 (Wed, 27 May 2009)
New Revision: 6438

Modified:
   branches/DBIx-Class-Schema-Loader/odbc-mssql/lib/DBIx/Class/Schema/Loader/DBI/ODBC.pm
Log:
use ensure_class_loaded in odbc driver

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:27:41 UTC (rev 6437)
+++ branches/DBIx-Class-Schema-Loader/odbc-mssql/lib/DBIx/Class/Schema/Loader/DBI/ODBC.pm	2009-05-27 04:34:59 UTC (rev 6438)
@@ -35,8 +35,7 @@
     # Translate the backend name into a perl identifier
     $dbtype =~ s/\W/_/gi;
     my $class = "DBIx::Class::Schema::Loader::DBI::ODBC::${dbtype}";
-    eval { $self->ensure_class_loaded($class) };
-    bless $self, $class unless $@;
+    bless $self, $class if $self->load_optional_class($class);
   }
 }