Commit | Line | Data |
737416a4 |
1 | use inc::Module::Install 0.67; |
fe650234 |
2 | use strict; |
3 | use warnings; |
4 | |
5 | use 5.006001; # delete this line if you want to send patches for earlier. |
ce4c07df |
6 | |
7 | name 'DBIx-Class'; |
ce4c07df |
8 | perl_version '5.006001'; |
8e0f16f1 |
9 | all_from 'lib/DBIx/Class.pm'; |
ce4c07df |
10 | |
ce4c07df |
11 | requires 'Data::Page' => 2.00; |
12 | requires 'Scalar::Util' => 0; |
87e75121 |
13 | requires 'SQL::Abstract' => 1.24; |
14 | requires 'SQL::Abstract::Limit' => 0.13; |
15 | requires 'Class::C3' => 0.20; |
1680d317 |
16 | requires 'Class::C3::Componentised' => 0; |
ce4c07df |
17 | requires 'Storable' => 0; |
ce4c07df |
18 | requires 'Carp::Clan' => 0; |
19 | requires 'DBI' => 1.40; |
20 | requires 'Module::Find' => 0; |
21 | requires 'Class::Inspector' => 0; |
87e75121 |
22 | requires 'Class::Accessor::Grouped' => 0.08002; |
f1b99b9e |
23 | requires 'JSON::Any' => 1.17; |
9c6d6d93 |
24 | requires 'Scope::Guard' => 0.03; |
8026d0eb |
25 | requires 'Path::Class' => 0; |
26ab719a |
26 | requires 'List::Util' => 1.19; |
ddc0a6c8 |
27 | requires 'Sub::Name' => 0.04; |
e0cdf2cb |
28 | requires 'namespace::clean' => 0.09; |
ce4c07df |
29 | |
30 | # Perl 5.8.0 doesn't have utf8::is_utf8() |
31 | requires 'Encode' => 0 if ($] <= 5.008000); |
32 | |
d9a898ca |
33 | configure_requires 'DBD::SQLite' => 1.14; |
34 | |
f947585b |
35 | test_requires 'Test::Builder' => 0.33; |
97aca715 |
36 | test_requires 'Test::Warn' => 0.11; |
f947585b |
37 | test_requires 'Test::Exception' => 0; |
ce3b4eb9 |
38 | test_requires 'Test::Deep' => 0; |
ce4c07df |
39 | |
40 | install_script 'script/dbicadmin'; |
41 | |
50891152 |
42 | tests_recursive 't'; |
ce4c07df |
43 | |
1543db24 |
44 | # re-build README and require CDBI modules for testing if we're in a checkout |
fe650234 |
45 | |
46 | my @force_build_requires_if_author = qw( |
47 | DBIx::ContextualFetch |
48 | Class::Trigger |
49 | Time::Piece |
a8e7500d |
50 | Clone |
51 | Test::Pod::Coverage |
52 | Test::Memory::Cycle |
fe650234 |
53 | ); |
54 | |
55 | if ($Module::Install::AUTHOR) { |
56 | |
57 | foreach my $module (@force_build_requires_if_author) { |
58 | build_requires $module; |
59 | } |
09d46657 |
60 | |
1543db24 |
61 | system('pod2text lib/DBIx/Class.pm > README'); |
ff132c6f |
62 | } |
63 | |
64 | auto_provides; |
65 | |
3e110410 |
66 | auto_install; |
67 | |
e0b438fb |
68 | # Have all prerequisites, check DBD::SQLite sanity |
269228af |
69 | if (! $ENV{DBICTEST_NO_SQLITE_CHECK} ) { |
70 | |
e0b438fb |
71 | my $pid = fork(); |
72 | if (not defined $pid) { |
73 | die "Unable to fork(): $!"; |
74 | } |
75 | elsif (! $pid) { |
269228af |
76 | |
77 | # Win32 does not have real fork()s so a segfault will bring |
78 | # everything down. Warn about it. |
79 | if ($^O eq 'MSWin32') { |
80 | print <<'EOW'; |
81 | |
82 | ###################################################################### |
83 | # # |
84 | # A short stress-testing of DBD::SQLite will follow. If you have a # |
85 | # buggy library this might very well be the last text you will see # |
86 | # before the installation silently terminates. If this happens it # |
87 | # would mean that you are running a buggy version of DBD::SQLite # |
88 | # known to randomly segfault on errors. Even if you have the latest # |
3951a291 |
89 | # CPAN module version, the system sqlite3 dynamic library might have # |
90 | # been compiled against an older buggy sqlite3 dev library (oddly # |
91 | # DBD::SQLite will prefer the system library against the one bundled # |
92 | # with it). You are strongly advised to resolve this issue before # |
93 | # proceeding. # |
269228af |
94 | # # |
95 | # If this happens to you (this text is the last thing you see), and # |
96 | # you just want to install this module without worrying about the # |
97 | # tests (which will almost certainly fail) - set the environment # |
98 | # variable DBICTEST_NO_SQLITE_CHECK to a true value and try again. # |
99 | # # |
100 | ###################################################################### |
101 | |
102 | EOW |
103 | } |
104 | |
e0b438fb |
105 | require DBI; |
269228af |
106 | for (1 .. 100) { |
e0b438fb |
107 | my $dbh; |
108 | $dbh = DBI->connect ('dbi:SQLite::memory:', undef, undef, { |
109 | AutoCommit => 1, |
110 | RaiseError => 0, |
111 | PrintError => 0, |
112 | }) |
113 | or die "Unable to connect to database: $@"; |
114 | $dbh->do ('CREATE TABLE name_with_no_columns'); # a subtle syntax error |
115 | $dbh->do ('COMMIT'); # followed by commit |
116 | $dbh->disconnect; |
117 | } |
118 | |
119 | exit 0; |
120 | } |
121 | else { |
122 | wait(); |
123 | my $sig = $? & 127; |
124 | if ($sig == 11) { |
125 | warn (<<EOE); |
126 | |
3951a291 |
127 | ############################### WARNING ################################# |
128 | # # |
129 | # You are running a buggy version of DBD::SQLite known to randomly # |
130 | # segfault on errors. Even if you have the latest CPAN module version, # |
131 | # the sqlite3 dynamic library on this system might have been compiled # |
132 | # against an older buggy sqlite3 dev library (oddly DBD::SQLite will # |
133 | # prefer the system library against the one bundled with it). You are # |
134 | # strongly advised to resolve this issue before proceeding. # |
135 | # # |
136 | ######################################################################### |
e0b438fb |
137 | |
138 | EOE |
139 | my $ans = prompt ( |
140 | "The test suite of this module is almost certain to fail.\n" |
141 | . 'Do you really want to continue?', |
142 | 'no', |
143 | ); |
144 | exit 0 unless ($ans =~ /^y(es)?$/i); |
145 | } |
146 | } |
147 | } |
148 | |
149 | |
43944e47 |
150 | WriteAll(); |
09d46657 |
151 | |
152 | |
153 | if ($Module::Install::AUTHOR) { |
154 | # Need to do this _after_ WriteAll else it looses track of them |
155 | Meta->{values}{build_requires} = [ grep { |
fe650234 |
156 | my $ok = 1; |
157 | foreach my $module (@force_build_requires_if_author) { |
158 | if ($_->[0] =~ /$module/) { |
159 | $ok = 0; |
160 | last; |
161 | } |
162 | } |
163 | $ok; |
09d46657 |
164 | } @{Meta->{values}{build_requires}} ]; |
165 | |
166 | my @scalar_keys = Module::Install::Metadata::Meta_TupleKeys(); |
fe650234 |
167 | my $cr = Module::Install::Metadata->can("Meta_TupleKeys"); |
168 | { |
169 | no warnings 'redefine'; |
170 | *Module::Install::Metadata::Meta_TupleKeys = sub { |
171 | return $cr->(@_), 'resources'; |
172 | }; |
09d46657 |
173 | } |
174 | Meta->{values}{resources} = [ |
175 | [ 'MailingList', 'http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/dbix-class' ], |
176 | [ 'IRC', 'irc://irc.perl.org/#dbix-class' ], |
100dd0a8 |
177 | [ 'license', 'http://dev.perl.org/licenses/' ], |
178 | [ 'repository', 'http://dev.catalyst.perl.org/svnweb/bast/browse/DBIx-Class/' ], |
09d46657 |
179 | ]; |
180 | Meta->write; |
181 | } |