[Bast-commits] r7973 - in branches/DBIx-Class-Schema-Loader/back-compat: lib/DBIx/Class/Schema/Loader t/backcompat/0.04006

[caelum at dev.catalyst.perl.org]

Author: caelum
Date: 2009-11-28 08:46:00 +0000 (Sat, 28 Nov 2009)
New Revision: 7973

Modified:
   branches/DBIx-Class-Schema-Loader/back-compat/lib/DBIx/Class/Schema/Loader/Base.pm
   branches/DBIx-Class-Schema-Loader/back-compat/t/backcompat/0.04006/10sqlite_common.t
Log:
make dynamic schemas 0.04006 mode by default

Modified: branches/DBIx-Class-Schema-Loader/back-compat/lib/DBIx/Class/Schema/Loader/Base.pm
===================================================================
--- branches/DBIx-Class-Schema-Loader/back-compat/lib/DBIx/Class/Schema/Loader/Base.pm	2009-11-28 08:20:11 UTC (rev 7972)
+++ branches/DBIx-Class-Schema-Loader/back-compat/lib/DBIx/Class/Schema/Loader/Base.pm	2009-11-28 08:46:00 UTC (rev 7973)
@@ -339,6 +339,7 @@
     if ($self->{dynamic}) {
         no strict 'refs';
         my $class = ref $self || $self;
+        require DBIx::Class::Schema::Loader::Compat::v0_040;
         unshift @{"${class}::ISA"},
             'DBIx::Class::Schema::Loader::Compat::v0_040';
         Class::C3::reinitialize;

Modified: branches/DBIx-Class-Schema-Loader/back-compat/t/backcompat/0.04006/10sqlite_common.t
===================================================================
--- branches/DBIx-Class-Schema-Loader/back-compat/t/backcompat/0.04006/10sqlite_common.t	2009-11-28 08:20:11 UTC (rev 7972)
+++ branches/DBIx-Class-Schema-Loader/back-compat/t/backcompat/0.04006/10sqlite_common.t	2009-11-28 08:46:00 UTC (rev 7973)
@@ -1,5 +1,5 @@
 use strict;
-use lib qw(t/lib);
+use lib qw(t/backcompat/0.04006/lib);
 use dbixcsl_common_tests;
 
 eval { require DBD::SQLite };