Added to prevent automated testing in Build.PL and Makefile.PL.

This commit is contained in:
依瑪貓 2021-02-10 22:53:26 +08:00
parent d68eefcc30
commit 658a718f19
2 changed files with 4 additions and 0 deletions

View File

@ -5,6 +5,8 @@ use lib qw(lib);
use DbFramework::Util; use DbFramework::Util;
require './t/util.pl'; require './t/util.pl';
exit 0 if $ENV{AUTOMATED_TESTING};
my $catalog_db = 'dbframework_catalog'; my $catalog_db = 'dbframework_catalog';
my %keytypes = (primary => 0, foreign => 1, index => 2); my %keytypes = (primary => 0, foreign => 1, index => 2);

View File

@ -7,6 +7,8 @@ use lib qw(lib);
use DbFramework::Util; use DbFramework::Util;
require './t/util.pl'; require './t/util.pl';
exit 0 if $ENV{AUTOMATED_TESTING};
my $catalog_db = 'dbframework_catalog'; my $catalog_db = 'dbframework_catalog';
my %keytypes = (primary => 0, foreign => 1, index => 2); my %keytypes = (primary => 0, foreign => 1, index => 2);