use inc::Module::Install 0.79; use strict; use warnings; use POSIX (); use 5.006001; # delete this line if you want to send patches for earlier. name 'DBIx-Class'; perl_version '5.006001'; all_from 'lib/DBIx/Class.pm'; # configure_requires so _check_sqlite() below can run # remove once test deprecated configure_requires 'DBD::SQLite'; requires 'DBD::SQLite' => 1.23; requires 'Data::Page' => 2.00; requires 'Scalar::Util' => 0; requires 'SQL::Abstract' => 1.54; requires 'SQL::Abstract::Limit' => 0.13; requires 'Class::C3::Componentised' => 1.0005; requires 'Storable' => 0; requires 'Carp::Clan' => 0; requires 'DBI' => 1.40; requires 'Module::Find' => 0; requires 'Class::Inspector' => 0; requires 'Class::Accessor::Grouped' => 0.08003; requires 'JSON::Any' => 1.17; requires 'Scope::Guard' => 0.03; requires 'Path::Class' => 0; requires 'List::Util' => 1.19; requires 'Sub::Name' => 0.04; requires 'MRO::Compat' => 0.09; # Perl 5.8.0 doesn't have utf8::is_utf8() requires 'Encode' => 0 if ($] <= 5.008000); test_requires 'Test::Builder' => 0.33; test_requires 'Test::Warn' => 0.11; test_requires 'Test::Exception' => 0; test_requires 'Test::Deep' => 0; recommends 'SQL::Translator' => 0.09004; install_script (qw| script/dbicadmin |); tests_recursive (qw| t |); # re-build README and require extra modules for testing if we're in a checkout my %force_requires_if_author = ( 'Test::Pod::Coverage' => 1.04, 'SQL::Translator' => 0.09004, # CDBI-compat related 'DBIx::ContextualFetch' => 0, 'Class::DBI::Plugin::DeepAbstractSearch' => 0, 'Class::Trigger' => 0, 'Time::Piece::MySQL' => 0, 'Clone' => 0, 'Date::Simple' => 0, # t/52cycle.t 'Test::Memory::Cycle' => 0, # t/60core.t 'DateTime::Format::MySQL' => 0, # t/72pg.t $ENV{DBICTEST_PG_DSN} ? ('Sys::SigAction'=> 0) : () , # t/93storage_replication.t 'Moose', => 0.54, 'Moose::Util::TypeConstraints' => 0.54, 'MooseX::AttributeHelpers' => 0.12, 'Class::MOP' => 0.63, # t/96_is_deteministic_value.t 'DateTime::Format::Strptime' => 0, ); if ($Module::Install::AUTHOR) { foreach my $module (keys %force_requires_if_author) { build_requires ($module => $force_requires_if_author{$module}); } system('pod2text lib/DBIx/Class.pm > README'); } auto_provides; if ($Module::Install::AUTHOR) { warn <<'EOW'; ****************************************************************************** ****************************************************************************** *** *** *** AUTHOR MODE: all optional test dependencies converted to hard requires *** *** *** ****************************************************************************** ****************************************************************************** EOW } auto_install; # Have all prerequisites, check DBD::SQLite sanity _check_sqlite() if (! $ENV{DBICTEST_NO_SQLITE_CHECK} ); WriteAll(); if ($Module::Install::AUTHOR) { # Need to do this _after_ WriteAll else it loses track of them Meta->{values}{build_requires} = [ grep { my $ok = 1; foreach my $module (keys %force_requires_if_author) { if ($_->[0] =~ /$module/) { $ok = 0; last; } } $ok; } @{Meta->{values}{build_requires}} ]; 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; } # This is legacy code. Latest DBD::SQLite developments fixed all known bugs # in this area. Remove before some arbitrary next version sub _check_sqlite { # Win32 does not have real fork()s so a segfault will bring # everything down. Warn about it below, and don't try fork() if ($^O ne 'MSWin32') { my $pid = fork(); if (not defined $pid) { die "Unable to fork(): $!"; } elsif (! $pid) { _torture_sqlite(); exit 0; } else { eval { local $SIG{ALRM} = sub { die "timeout\n" }; alarm 5; wait(); alarm 0; }; my $exception = $@; my $sig = $? & 127; # make sure process actually dies $exception && kill POSIX::SIGKILL(), $pid; if ($exception || $sig == POSIX::SIGSEGV() || $sig == POSIX::SIGABRT() || $sig == 7) { # 7 == SIGBUS, haven't seen it but just in case warn (<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; } }