From: Peter Rabbitson <ribasushi@cpan.org>
Date: Fri, 23 Oct 2009 08:51:05 +0000 (+0000)
Subject: Prevent sqlt from failing silently
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f9288897671df67f6d59204e833600fa1c9b20ef;p=dbsrgits%2FDBIx-Class-Historic.git

Prevent sqlt from failing silently
---

diff --git a/lib/DBIx/Class/Storage/DBI.pm b/lib/DBIx/Class/Storage/DBI.pm
index 44fe102..1e558e8 100644
--- a/lib/DBIx/Class/Storage/DBI.pm
+++ b/lib/DBIx/Class/Storage/DBI.pm
@@ -2628,7 +2628,11 @@ sub deployment_statements {
     parser => 'SQL::Translator::Parser::DBIx::Class',
     data => $schema,
   );
-  return $tr->translate;
+
+  my $ret = $tr->translate
+    or $self->throw_exception( 'Unable to produce deployment statements: ' . $tr->error);
+
+  return $ret;
 }
 
 sub deploy {