[Bast-commits] r5427 - in DBIx-Class/0.08: branches/stopgap/t trunk/lib/DBIx/Class/Schema trunk/lib/DBIx/Class/Storage trunk/t

[ribasushi at dev.catalyst.perl.org]

Author: ribasushi
Date: 2009-02-07 17:59:04 +0000 (Sat, 07 Feb 2009)
New Revision: 5427

Modified:
   DBIx-Class/0.08/branches/stopgap/t/94versioning.t
   DBIx-Class/0.08/trunk/lib/DBIx/Class/Schema/Versioned.pm
   DBIx-Class/0.08/trunk/lib/DBIx/Class/Storage/DBI.pm
   DBIx-Class/0.08/trunk/t/94versioning.t
   DBIx-Class/0.08/trunk/t/99dbic_sqlt_parser.t
Log:
Up dependency on SQLT (releasing now)

Modified: DBIx-Class/0.08/branches/stopgap/t/94versioning.t
===================================================================
--- DBIx-Class/0.08/branches/stopgap/t/94versioning.t	2009-02-07 17:57:53 UTC (rev 5426)
+++ DBIx-Class/0.08/branches/stopgap/t/94versioning.t	2009-02-07 17:59:04 UTC (rev 5427)
@@ -5,9 +5,9 @@
 use File::Spec;
 
 BEGIN {
-    eval "use DBD::SQLite; use SQL::Translator 0.09;";
+    eval "use DBD::SQLite; use SQL::Translator 0.09003;";
     plan $@
-        ? ( skip_all => 'needs DBD::SQLite and SQL::Translator 0.09 for testing' )
+        ? ( skip_all => 'needs DBD::SQLite and SQL::Translator 0.09003 for testing' )
         : ( tests => 6 );
 }
 

Modified: DBIx-Class/0.08/trunk/lib/DBIx/Class/Schema/Versioned.pm
===================================================================
--- DBIx-Class/0.08/trunk/lib/DBIx/Class/Schema/Versioned.pm	2009-02-07 17:57:53 UTC (rev 5426)
+++ DBIx-Class/0.08/trunk/lib/DBIx/Class/Schema/Versioned.pm	2009-02-07 17:59:04 UTC (rev 5427)
@@ -519,9 +519,9 @@
     return;
   }
 
-  eval 'require SQL::Translator "0.09"';
+  eval 'require SQL::Translator "0.09003"';
   if ($@) {
-    $self->throw_exception("SQL::Translator 0.09 required");
+    $self->throw_exception("SQL::Translator 0.09003 required");
   }
 
   my $db_tr = SQL::Translator->new({ 

Modified: DBIx-Class/0.08/trunk/lib/DBIx/Class/Storage/DBI.pm
===================================================================
--- DBIx-Class/0.08/trunk/lib/DBIx/Class/Storage/DBI.pm	2009-02-07 17:57:53 UTC (rev 5426)
+++ DBIx-Class/0.08/trunk/lib/DBIx/Class/Storage/DBI.pm	2009-02-07 17:59:04 UTC (rev 5427)
@@ -1608,7 +1608,7 @@
     %{$sqltargs || {}}
   };
 
-  $self->throw_exception(q{Can't create a ddl file without SQL::Translator 0.09: '}
+  $self->throw_exception(q{Can't create a ddl file without SQL::Translator 0.09003: '}
       . $self->_check_sqlt_message . q{'})
           if !$self->_check_sqlt_version;
 
@@ -1755,7 +1755,7 @@
       return join('', @rows);
   }
 
-  $self->throw_exception(q{Can't deploy without SQL::Translator 0.09: '}
+  $self->throw_exception(q{Can't deploy without SQL::Translator 0.09003: '}
       . $self->_check_sqlt_message . q{'})
           if !$self->_check_sqlt_version;
 
@@ -1837,7 +1837,7 @@
     my $_check_sqlt_message; # private
     sub _check_sqlt_version {
         return $_check_sqlt_version if defined $_check_sqlt_version;
-        eval 'use SQL::Translator "0.09"';
+        eval 'use SQL::Translator "0.09003"';
         $_check_sqlt_message = $@ || '';
         $_check_sqlt_version = !$@;
     }

Modified: DBIx-Class/0.08/trunk/t/94versioning.t
===================================================================
--- DBIx-Class/0.08/trunk/t/94versioning.t	2009-02-07 17:57:53 UTC (rev 5426)
+++ DBIx-Class/0.08/trunk/t/94versioning.t	2009-02-07 17:59:04 UTC (rev 5427)
@@ -16,9 +16,9 @@
     unless ($dsn);
 
 
-    eval "use DBD::mysql; use SQL::Translator 0.09;";
+    eval "use DBD::mysql; use SQL::Translator 0.09003;";
     plan $@
-        ? ( skip_all => 'needs DBD::mysql and SQL::Translator 0.09 for testing' )
+        ? ( skip_all => 'needs DBD::mysql and SQL::Translator 0.09003 for testing' )
         : ( tests => 22 );
 }
 

Modified: DBIx-Class/0.08/trunk/t/99dbic_sqlt_parser.t
===================================================================
--- DBIx-Class/0.08/trunk/t/99dbic_sqlt_parser.t	2009-02-07 17:57:53 UTC (rev 5426)
+++ DBIx-Class/0.08/trunk/t/99dbic_sqlt_parser.t	2009-02-07 17:59:04 UTC (rev 5427)
@@ -7,9 +7,9 @@
 
 
 BEGIN {
-    eval "use DBD::mysql; use SQL::Translator 0.09;";
+    eval "use DBD::mysql; use SQL::Translator 0.09003;";
     if ($@) {
-        plan skip_all => 'needs DBD::mysql and SQL::Translator 0.09 for testing';
+        plan skip_all => 'needs DBD::mysql and SQL::Translator 0.09003 for testing';
     }
 }