2nd Pass

[dbsrgits/DBIx-Class.git] / maint / Makefile.PL.inc / 56_autogen_testddl.pl

diff --git a/maint/Makefile.PL.inc/56_autogen_testddl.pl b/maint/Makefile.PL.inc/56_autogen_testddl.pl
index a9425d3..b8af20a 100644 (file)
--- a/maint/Makefile.PL.inc/56_autogen_testddl.pl
+++ b/maint/Makefile.PL.inc/56_autogen_testddl.pl
@@ -1,5 +1,8 @@
 require File::Spec;
-my $ddl_fn = File::Spec->catfile(qw(t lib sqlite.sql));
+my $ddl_fn = {
+   sqlite  => File::Spec->catfile(qw(t lib sqlite.sql)),
+   dbdfile => File::Spec->catfile(qw(t lib dbdfile.sql)),
+};
 
 # If the author doesn't have the prereqs, we will end up obliterating
 # the ddl file, and all tests will fail, therefore don't do anything
@@ -8,26 +11,34 @@ my $ddl_fn = File::Spec->catfile(qw(t lib sqlite.sql));
 # errors will not be trapped
 require DBIx::Class::Optional::Dependencies;
 if ( DBIx::Class::Optional::Dependencies->req_ok_for ('deploy') ) {
-  print "Regenerating t/lib/sqlite.sql\n";
-  if (my $out = ` "$^X" -Ilib maint/gen_schema `) {
-    open (my $fh, '>:unix', $ddl_fn) or die "Unable to open $ddl_fn: $!";
-    print $fh $out;
-    close $fh;
+  foreach my $type (qw(sqlite dbdfile)) {
+    print "Regenerating t/lib/$type.sql\n";
+    if (my $out = ` "$^X" -Ilib maint/gen_schema_$type `) {
+      open (my $fh, '>:unix', $ddl_fn->{$type}) or die "Unable to open $ddl_fn->{$type}: $!";
+      print $fh $out;
+      close $fh;
 
-    # if we don't do it some git tools (e.g. gitk) get confused that the
-    # ddl file is modified, when it clearly isn't
-    system('git status --porcelain >' . File::Spec->devnull);
+      # if we don't do it some git tools (e.g. gitk) get confused that the
+      # ddl file is modified, when it clearly isn't
+      system('git status --porcelain >' . File::Spec->devnull);
+    }
   }
 }
 
-postamble <<"EOP";
+my $postamble = <<"EOP";
 
 clonedir_generate_files : dbic_clonedir_regen_test_ddl
 
 dbic_clonedir_regen_test_ddl :
-\t\$(ABSPERLRUN) -Ilib -- maint/gen_schema > @{[ $mm_proto->quote_literal($ddl_fn) ]}
-@{[ $crlf_fixup->($ddl_fn) ]}
 EOP
+foreach my $type (qw(sqlite dbdfile)) {
+  $postamble .= <<"EOP";
+\t\$(ABSPERLRUN) -Ilib -- maint/gen_schema_$type > @{[ $mm_proto->quote_literal($ddl_fn->{$type}) ]}
+@{[ $crlf_fixup->($ddl_fn->{$type}) ]}
+EOP
+}
+
+postamble $postamble;
 
 # keep the Makefile.PL eval happy
 1;