[Bast-commits] r4103 - in DBIx-Class/0.08/branches/versioned_enhancements/lib/DBIx/Class: Schema Storage

[captainL at dev.catalyst.perl.org]

Author: captainL
Date: 2008-02-27 15:11:21 +0000 (Wed, 27 Feb 2008)
New Revision: 4103

Modified:
   DBIx-Class/0.08/branches/versioned_enhancements/lib/DBIx/Class/Schema/Versioned.pm
   DBIx-Class/0.08/branches/versioned_enhancements/lib/DBIx/Class/Storage/DBI.pm
Log:
increased sqlt rev dep

Modified: DBIx-Class/0.08/branches/versioned_enhancements/lib/DBIx/Class/Schema/Versioned.pm
===================================================================
--- DBIx-Class/0.08/branches/versioned_enhancements/lib/DBIx/Class/Schema/Versioned.pm	2008-02-26 13:16:22 UTC (rev 4102)
+++ DBIx-Class/0.08/branches/versioned_enhancements/lib/DBIx/Class/Schema/Versioned.pm	2008-02-27 15:11:21 UTC (rev 4103)
@@ -179,7 +179,7 @@
     $self->storage->backup($self->backup_directory());
 }
 
-# is this just a waste of time?
+# is this just a waste of time? if not then merge with DBI.pm
 sub _create_db_to_schema_diff {
   my $self = shift;
 
@@ -193,8 +193,10 @@
     return;
   }
 
-  require SQL::Translator;
-  require SQL::Translator::Diff;
+  eval 'require SQL::Translator "0.09"';
+  if ($@) {
+    $self->throw_exception("SQL::Translator 0.09 required");
+  }
 
   my $db_tr = SQL::Translator->new({ 
                                     add_drop_table => 1, 

Modified: DBIx-Class/0.08/branches/versioned_enhancements/lib/DBIx/Class/Storage/DBI.pm
===================================================================
--- DBIx-Class/0.08/branches/versioned_enhancements/lib/DBIx/Class/Storage/DBI.pm	2008-02-26 13:16:22 UTC (rev 4102)
+++ DBIx-Class/0.08/branches/versioned_enhancements/lib/DBIx/Class/Storage/DBI.pm	2008-02-27 15:11:21 UTC (rev 4103)
@@ -1329,7 +1329,7 @@
   $version ||= $schema->VERSION || '1.x';
   $sqltargs = { ( add_drop_table => 1 ), %{$sqltargs || {}} };
 
-  $self->throw_exception(q{Can't create a ddl file without SQL::Translator 0.08: '}
+  $self->throw_exception(q{Can't create a ddl file without SQL::Translator 0.09: '}
       . $self->_check_sqlt_message . q{'})
           if !$self->_check_sqlt_version;
 
@@ -1484,7 +1484,7 @@
       return join('', @rows);
   }
 
-  $self->throw_exception(q{Can't deploy without SQL::Translator 0.08: '}
+  $self->throw_exception(q{Can't deploy without SQL::Translator 0.09: '}
       . $self->_check_sqlt_message . q{'})
           if !$self->_check_sqlt_version;
 
@@ -1569,7 +1569,7 @@
     my $_check_sqlt_message; # private
     sub _check_sqlt_version {
         return $_check_sqlt_version if defined $_check_sqlt_version;
-        eval 'use SQL::Translator "0.08"';
+        eval 'use SQL::Translator "0.09"';
         $_check_sqlt_message = $@ || '';
         $_check_sqlt_version = !$@;
     }