X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FDeploymentHandler%2FDeployMethod%2FSQL%2FTranslator.pm;h=4b6c9f53a2bc276fb0c97f50d6fdb226bbd6439c;hb=3a47afb41d1e41079aafeb34ab1fb46d77964117;hp=129000cc21d26aa64d924e58170b4b9ad0213813;hpb=3249629f430cb0e5a7ef9504f530fbc01ae59fb5;p=dbsrgits%2FDBIx-Class-DeploymentHandler.git

diff --git a/lib/DBIx/Class/DeploymentHandler/DeployMethod/SQL/Translator.pm b/lib/DBIx/Class/DeploymentHandler/DeployMethod/SQL/Translator.pm
index 129000c..4b6c9f5 100644
--- a/lib/DBIx/Class/DeploymentHandler/DeployMethod/SQL/Translator.pm
+++ b/lib/DBIx/Class/DeploymentHandler/DeployMethod/SQL/Translator.pm
@@ -143,43 +143,16 @@ method _ddl_schema_down_produce_filename($type, $versions, $dir) {
 }
 
 method _deployment_statements {
-  my $dir      = $self->upgrade_directory;
-  my $schema   = $self->schema;
   my $type     = $self->storage->sqlt_type;
-  my $sqltargs = $self->sqltargs;
   my $version  = $self->schema_version;
 
-  my @filenames = @{$self->_ddl_schema_consume_filenames($type, $version)};
-
-  for my $filename (@filenames) {
-    if(-f $filename) {
-        my $file;
-        open $file, q(<), $filename
-          or carp "Can't open $filename ($!)";
-        my @rows = <$file>;
-        close $file;
-        return join '', @rows;
-    }
+  for my $filename (@{$self->_ddl_schema_consume_filenames($type, $version)}) {
+      open my $file, q(<), $filename
+        or carp "Can't open $filename ($!)";
+      my @rows = <$file>;
+      close $file;
+      return join '', @rows;
   }
-
-  # sources needs to be a parser arg, but for simplicty allow at top level
-  # coming in
-  $sqltargs->{parser_args}{sources} = delete $sqltargs->{sources}
-      if exists $sqltargs->{sources};
-
-  my $tr = SQL::Translator->new(
-    producer => "SQL::Translator::Producer::${type}",
-    %$sqltargs,
-    parser => 'SQL::Translator::Parser::DBIx::Class',
-    data => $schema,
-  );
-
-  my $ret = $tr->translate;
-
-  $schema->throw_exception( 'Unable to produce deployment statements: ' . $tr->error)
-    unless defined $ret;
-
-  return $ret;
 }
 
 sub _deploy {