From: Arthur Axel 'fREW' Schmidt Date: Sat, 20 Mar 2010 17:42:24 +0000 (-0500) Subject: basic compat fixes for SQLT2 X-Git-Tag: v0.001000_01~79 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d53e0bfc728d1d5551bbbe840a4c761ef3e33a60;p=dbsrgits%2FDBIx-Class-DeploymentHandler.git basic compat fixes for SQLT2 --- diff --git a/lib/DBIx/Class/DeploymentHandler/DeployMethod/SQL/Translator.pm b/lib/DBIx/Class/DeploymentHandler/DeployMethod/SQL/Translator.pm index 6c53b49..2cea383 100644 --- a/lib/DBIx/Class/DeploymentHandler/DeployMethod/SQL/Translator.pm +++ b/lib/DBIx/Class/DeploymentHandler/DeployMethod/SQL/Translator.pm @@ -185,7 +185,7 @@ sub prepare_install { %{$sqltargs} }); - my $sqlt_schema = $sqlt->translate({ data => $schema }) + my $sqlt_schema = $sqlt->translate( data => $schema ) or $self->throw_exception($sqlt->error); foreach my $db (@$databases) { @@ -260,7 +260,7 @@ method _prepare_changegrade($from_version, $to_version, $version_set, $direction my $sqlt = SQL::Translator->new( $sqltargs ); $sqlt->parser('SQL::Translator::Parser::DBIx::Class'); - my $sqlt_schema = $sqlt->translate({ data => $schema }) + my $sqlt_schema = $sqlt->translate( data => $schema ) or $self->throw_exception ($sqlt->error); foreach my $db (@$databases) {