12 return unless ( -f $_ and $_ =~ /\.pm$/ );
19 if (my @offenders = grep { $_ =~ /(^|\/)DBI/ } keys %INC) {
20 die "Wtf - DBI* modules present in %INC: @offenders";
23 local $SIG{__WARN__} = sub { warn @_ unless $_[0] =~ /\bdeprecated\b/i };
24 require( ( $_ =~ m| t/lib/ (.+) |x )[0] ); # untaint and strip lib-part (. is unavailable under -T)
28 is ( waitpid($pid, 0), $pid, "Fork $pid terminated sucessfully");
30 is ( $ex, 0, "Loading $_ ($pid) exitted with $ex" );
34 }, 't/lib/DBICTest/Schema/');