add header_comment

[dbsrgits/SQL-Translator.git] / lib / SQL / Translator / Producer / SQLServer.pm

diff --git a/lib/SQL/Translator/Producer/SQLServer.pm b/lib/SQL/Translator/Producer/SQLServer.pm
index af171aa..03a8e97 100644 (file)
--- a/lib/SQL/Translator/Producer/SQLServer.pm
+++ b/lib/SQL/Translator/Producer/SQLServer.pm
@@ -6,7 +6,6 @@ our ( $DEBUG, $WARN );
 our $VERSION = '1.59';
 $DEBUG = 1 unless defined $DEBUG;
 
-use Data::Dumper;
 use SQL::Translator::Schema::Constants;
 use SQL::Translator::Utils qw(debug header_comment);
 use SQL::Translator::Generator::DDL::SQLServer;
@@ -22,13 +21,9 @@ sub produce {
     my $add_drop_table = $translator->add_drop_table;
     my $schema         = $translator->schema;
 
-    my $output;
-    $output .= header_comment."\n" unless ($no_comments);
+    my $output = $future->header_comments;
+    $output .= $future->drop_tables($schema);
 
-    # Generate the DROP statements.
-    $output .= $future->drop_tables;
-
-    # these need to be added separately, as tables may not exist yet
     my @foreign_constraints = ();
 
     for my $table ( grep { $_->name } $schema->get_tables ) {