X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=xt%2Fstandalone_testschema_resultclasses.t;h=7ed03815679ed783143b11196a9db4ed049a3b5d;hb=841efcb3f89a643bd283ccbbf5e73b98c4a6924a;hp=95acd43e0eed855d521e4320907ece20f1536ca1;hpb=7664b1a03c8f4da961d1f9795c9af1d545a24ea1;p=dbsrgits%2FDBIx-Class-Historic.git

diff --git a/xt/standalone_testschema_resultclasses.t b/xt/standalone_testschema_resultclasses.t
index 95acd43..7ed0381 100644
--- a/xt/standalone_testschema_resultclasses.t
+++ b/xt/standalone_testschema_resultclasses.t
@@ -14,7 +14,7 @@ use lib 't/lib';
 my $worker = sub {
   my $fn = shift;
 
-  if (my @offenders = grep { $_ ne 'DBIx/Class/_Util.pm' } grep { $_ =~ /(^|\/)DBI/ } keys %INC) {
+  if (my @offenders = grep { $_ !~ m{DBIx/Class/(?:_Util|Carp)\.pm} } grep { $_ =~ /(^|\/)DBI/ } keys %INC) {
     die "Wtf - DBI* modules present in %INC: @offenders";
   }