Fix DROP TABLE in SQL Server Producer

diff --git a/Changes b/Changes
index 64ce0c6..ceb30b6 100644 (file)
--- a/Changes
+++ b/Changes
@@ -1,5 +1,7 @@
 Changes for SQL::Translator
 
+ * Fix DROP TABLE in SQL Server Producer
+
 0.11018 2013-10-31 🎃
 
  * Revert "Fix AUTOINCREMENT in SQLite"

diff --git a/lib/SQL/Translator/Generator/DDL/SQLServer.pm b/lib/SQL/Translator/Generator/DDL/SQLServer.pm
index 2141999..9e35d89 100644 (file)
--- a/lib/SQL/Translator/Generator/DDL/SQLServer.pm
+++ b/lib/SQL/Translator/Generator/DDL/SQLServer.pm
@@ -198,7 +198,7 @@ sub remove_table_constraints {
 }
 
 sub drop_tables {
-   my ($self, $schema) = shift;
+   my ($self, $schema) = @_;
 
    if ($self->add_drop_table) {
       my @tables = sort { $b->order <=> $a->order } $schema->get_tables;

diff --git a/lib/SQL/Translator/Producer/SQLServer.pm b/lib/SQL/Translator/Producer/SQLServer.pm
index c1181ca..ed9d156 100644 (file)
--- a/lib/SQL/Translator/Producer/SQLServer.pm
+++ b/lib/SQL/Translator/Producer/SQLServer.pm
@@ -14,7 +14,7 @@ sub produce {
   my $translator = shift;
   SQL::Translator::Generator::DDL::SQLServer->new(
     add_comments    => !$translator->no_comments,
-    add_drop_tables => $translator->add_drop_table,
+    add_drop_table => $translator->add_drop_table,
   )->schema($translator->schema)
 }