From: Peter Rabbitson Date: Sat, 7 Feb 2009 17:59:04 +0000 (+0000) Subject: Up dependency on SQLT (releasing now) X-Git-Tag: v0.08240~144 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=dbsrgits%2FDBIx-Class.git;a=commitdiff_plain;h=228d5eae483427447ab808dee3f955a4d2ed0801 Up dependency on SQLT (releasing now) --- diff --git a/lib/DBIx/Class/Schema/Versioned.pm b/lib/DBIx/Class/Schema/Versioned.pm index 47230f7..eb4c352 100644 --- a/lib/DBIx/Class/Schema/Versioned.pm +++ b/lib/DBIx/Class/Schema/Versioned.pm @@ -519,9 +519,9 @@ sub _create_db_to_schema_diff { 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({ diff --git a/lib/DBIx/Class/Storage/DBI.pm b/lib/DBIx/Class/Storage/DBI.pm index c8d2840..7bb576c 100644 --- a/lib/DBIx/Class/Storage/DBI.pm +++ b/lib/DBIx/Class/Storage/DBI.pm @@ -1608,7 +1608,7 @@ sub create_ddl_dir { %{$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 @@ sub deployment_statements { 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 @@ sub build_datetime_parser { 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 = !$@; } diff --git a/t/94versioning.t b/t/94versioning.t index 4ef0864..245d492 100644 --- a/t/94versioning.t +++ b/t/94versioning.t @@ -16,9 +16,9 @@ BEGIN { 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 ); } diff --git a/t/99dbic_sqlt_parser.t b/t/99dbic_sqlt_parser.t index b6683fb..e411135 100644 --- a/t/99dbic_sqlt_parser.t +++ b/t/99dbic_sqlt_parser.t @@ -7,9 +7,9 @@ use DBICTest; 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'; } }