X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=Makefile.PL;h=e11679283a6d8ec1ede2defb964504c551add0a2;hb=cbbd793984d9850d356d5ebb264ce577f5b98b4e;hp=0af4f151737273463776181365d6b76f9bd3254a;hpb=26ab719a4d6ee414537c815677b9884b64417539;p=dbsrgits%2FDBIx-Class.git diff --git a/Makefile.PL b/Makefile.PL index 0af4f15..e116792 100644 --- a/Makefile.PL +++ b/Makefile.PL @@ -1,4 +1,8 @@ use inc::Module::Install 0.67; +use strict; +use warnings; + +use 5.006001; # delete this line if you want to send patches for earlier. name 'DBIx-Class'; perl_version '5.006001'; @@ -6,39 +10,52 @@ all_from 'lib/DBIx/Class.pm'; requires 'Data::Page' => 2.00; requires 'Scalar::Util' => 0; -requires 'SQL::Abstract' => 1.20; -requires 'SQL::Abstract::Limit' => 0.101; -requires 'Class::C3' => 0.13; +requires 'SQL::Abstract' => 1.24; +requires 'SQL::Abstract::Limit' => 0.13; +requires 'Class::C3' => 0.20; requires 'Class::C3::Componentised' => 0; requires 'Storable' => 0; requires 'Carp::Clan' => 0; requires 'DBI' => 1.40; requires 'Module::Find' => 0; requires 'Class::Inspector' => 0; -requires 'Class::Accessor::Grouped' => 0.05002; -requires 'JSON::Any' => 1.00; +requires 'Class::Accessor::Grouped' => 0.08002; +requires 'JSON::Any' => 1.17; requires 'Scope::Guard' => 0.03; -requires 'Digest::SHA1' => 2.00; requires 'Path::Class' => 0; requires 'List::Util' => 1.19; +requires 'Sub::Name' => 0.04; # Perl 5.8.0 doesn't have utf8::is_utf8() requires 'Encode' => 0 if ($] <= 5.008000); -build_requires 'DBD::SQLite' => 1.13; -build_requires 'Test::Builder' => 0.33; -build_requires 'Test::Warn' => 0.08; -build_requires 'Test::NoWarnings' => 0.08; +configure_requires 'DBD::SQLite' => 1.14; + +test_requires 'Test::Builder' => 0.33; +test_requires 'Test::Warn' => 0.11; +test_requires 'Test::Exception' => 0; +test_requires 'Test::Deep' => 0; install_script 'script/dbicadmin'; -tests "t/*.t t/*/*.t"; +tests_recursive 't'; # re-build README and require CDBI modules for testing if we're in a checkout -if( -e 'inc/.author' ) { - build_requires 'DBIx::ContextualFetch'; - build_requires 'Class::Trigger'; - build_requires 'Time::Piece'; + +my @force_build_requires_if_author = qw( + DBIx::ContextualFetch + Class::Trigger + Time::Piece + Clone + Test::Pod::Coverage + Test::Memory::Cycle +); + +if ($Module::Install::AUTHOR) { + + foreach my $module (@force_build_requires_if_author) { + build_requires $module; + } system('pod2text lib/DBIx/Class.pm > README'); } @@ -47,29 +64,117 @@ auto_provides; auto_install; -WriteAll; +# Have all prerequisites, check DBD::SQLite sanity +if (! $ENV{DBICTEST_NO_SQLITE_CHECK} ) { + + my $pid = fork(); + if (not defined $pid) { + die "Unable to fork(): $!"; + } + elsif (! $pid) { + + # Win32 does not have real fork()s so a segfault will bring + # everything down. Warn about it. + if ($^O eq 'MSWin32') { + print <<'EOW'; + +###################################################################### +# # +# A short stress-testing of DBD::SQLite will follow. If you have a # +# buggy library this might very well be the last text you will see # +# before the installation silently terminates. If this happens it # +# would mean that you are running a buggy version of DBD::SQLite # +# known to randomly segfault on errors. Even if you have the latest # +# CPAN module version, the system sqlite3 dynamic library might have # +# been compiled against an older buggy sqlite3 dev library (oddly # +# DBD::SQLite will prefer the system library against the one bundled # +# with it). You are strongly advised to resolve this issue before # +# proceeding. # +# # +# If this happens to you (this text is the last thing you see), and # +# you just want to install this module without worrying about the # +# tests (which will almost certainly fail) - set the environment # +# variable DBICTEST_NO_SQLITE_CHECK to a true value and try again. # +# # +###################################################################### + +EOW + } + + require DBI; + for (1 .. 100) { + my $dbh; + $dbh = DBI->connect ('dbi:SQLite::memory:', undef, undef, { + AutoCommit => 1, + RaiseError => 0, + PrintError => 0, + }) + or die "Unable to connect to database: $@"; + $dbh->do ('CREATE TABLE name_with_no_columns'); # a subtle syntax error + $dbh->do ('COMMIT'); # followed by commit + $dbh->disconnect; + } + + exit 0; + } + else { + wait(); + my $sig = $? & 127; + if ($sig == 11) { + warn (<{values}{build_requires} = [ grep { - $_->[0] !~ / - DBIx::ContextualFetch | - Class::Trigger | - Time::Piece - /x; + my $ok = 1; + foreach my $module (@force_build_requires_if_author) { + if ($_->[0] =~ /$module/) { + $ok = 0; + last; + } + } + $ok; } @{Meta->{values}{build_requires}} ]; my @scalar_keys = Module::Install::Metadata::Meta_TupleKeys(); - sub Module::Install::Metadata::Meta_TupleKeys { - return @scalar_keys, 'resources'; + my $cr = Module::Install::Metadata->can("Meta_TupleKeys"); + { + no warnings 'redefine'; + *Module::Install::Metadata::Meta_TupleKeys = sub { + return $cr->(@_), 'resources'; + }; } Meta->{values}{resources} = [ [ 'MailingList', 'http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/dbix-class' ], [ 'IRC', 'irc://irc.perl.org/#dbix-class' ], + [ 'license', 'http://dev.perl.org/licenses/' ], + [ 'repository', 'http://dev.catalyst.perl.org/svnweb/bast/browse/DBIx-Class/' ], ]; Meta->write; } - - -