use Test::More;
use File::Find;
+use DBIx::Class::_Util 'sigwarn_silencer';
+
use lib 't/lib';
find({
die "fork failed: $!"
}
elsif (!$pid) {
- if (my @offenders = grep { $_ =~ /(^|\/)DBI/ } keys %INC) {
+ if (my @offenders = grep { $_ ne 'DBIx/Class/_Util.pm' } grep { $_ =~ /(^|\/)DBI/ } keys %INC) {
die "Wtf - DBI* modules present in %INC: @offenders";
}
- local $SIG{__WARN__} = sub { warn @_ unless $_[0] =~ /\bdeprecated\b/i };
- require( ($_ =~ /(.+)/)[0] ); # untaint
+ local $SIG{__WARN__} = sigwarn_silencer( qr/\bdeprecated\b/i );
+ require( ( $_ =~ m| t/lib/ (.+) |x )[0] ); # untaint and strip lib-part (. is unavailable under -T)
exit 0;
}