Regenerate (finally\!) t/lib/sqlite.sql

[dbsrgits/DBIx-Class-Historic.git] / maint / gen-schema.pl

diff --git a/maint/gen-schema.pl b/maint/gen-schema.pl
index ffd2df7..6244702 100755 (executable)
--- a/maint/gen-schema.pl
+++ b/maint/gen-schema.pl
@@ -5,7 +5,15 @@ use warnings;
 use lib qw(lib t/lib);
 
 use DBICTest::Schema;
+use SQL::Translator;
 
-my $schema = DBICTest::Schema->connect;
+my $sql_join_str = '';
+if (SQL::Translator->VERSION >= 0.09001) {
+    $sql_join_str .= ";";
+}
+if (SQL::Translator->VERSION >= 0.09) {
+    $sql_join_str .= "\n";
+}
 
-print $schema->storage->deployment_statements($schema, 'SQLite');
+my $schema = DBICTest::Schema->connect;
+print join ($sql_join_str,$schema->storage->deployment_statements($schema, 'SQLite') );