[Bast-commits] r7384 - DBIx-Class/0.08/branches/autocast/lib/DBIx/Class

[ribasushi at dev.catalyst.perl.org]

Author: ribasushi
Date: 2009-08-25 10:35:19 +0000 (Tue, 25 Aug 2009)
New Revision: 7384

Modified:
   DBIx-Class/0.08/branches/autocast/lib/DBIx/Class/Schema.pm
Log:
Switch storage class loading to ensure_class_loaded

Modified: DBIx-Class/0.08/branches/autocast/lib/DBIx/Class/Schema.pm
===================================================================
--- DBIx-Class/0.08/branches/autocast/lib/DBIx/Class/Schema.pm	2009-08-25 10:17:28 UTC (rev 7383)
+++ DBIx-Class/0.08/branches/autocast/lib/DBIx/Class/Schema.pm	2009-08-25 10:35:19 UTC (rev 7384)
@@ -814,7 +814,7 @@
 
   $storage_class = 'DBIx::Class::Storage'.$storage_class
     if $storage_class =~ m/^::/;
-  eval "require ${storage_class};";
+  eval { $self->ensure_class_loaded ($storage_class) };
   $self->throw_exception(
     "No arguments to load_classes and couldn't load ${storage_class} ($@)"
   ) if $@;