less accumulators more reduction

[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 fe29c9b..f4b225c 100644 (file)
--- a/lib/SQL/Translator/Producer/SQLServer.pm
+++ b/lib/SQL/Translator/Producer/SQLServer.pm
@@ -26,14 +26,11 @@ sub produce {
     if ($add_drop_table) {
         my @tables = sort { $b->order <=> $a->order } $schema->get_tables;
         $output .= "--\n-- Turn off constraints\n--\n\n" unless $no_comments;
-        foreach my $table (@tables) {
-            $output .= $future->remove_table_constraints($table)
-        }
+        $output .= join "\n", map $future->remove_table_constraints($_), @tables;
         $output .= "\n";
         $output .= "--\n-- Drop tables\n--\n\n" unless $no_comments;
-        foreach my $table (@tables) {
-            $output .= $future->drop_table($table);
-        }
+        $output .= join "\n", map $future->drop_table($_), @tables;
+        $output .= "\n";
     }
 
     # these need to be added separately, as tables may not exist yet