X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FAccessorGroup.pm;h=56bcf1bb85649c3398d0b7ee6df6fde50660719a;hb=4d3a827d3c6009bbea3e08175dde81a0e4d96474;hp=803572560d3e8a780c1a1a5da1ec1990d5cef473;hpb=c8c66fb7c28d0b1ff3eeb08e264469e81635a888;p=dbsrgits%2FDBIx-Class-Historic.git

diff --git a/lib/DBIx/Class/AccessorGroup.pm b/lib/DBIx/Class/AccessorGroup.pm
index 8035725..56bcf1b 100644
--- a/lib/DBIx/Class/AccessorGroup.pm
+++ b/lib/DBIx/Class/AccessorGroup.pm
@@ -316,7 +316,7 @@ sub set_component_class {
   if ($@) {
       my $val_path = $val;
       $val_path =~ s{::}{/}g;
-      carp $@ unless $@ =~ /^Can't locate $val_path/;
+      carp $@ unless $@ =~ /^Can't locate $val_path\.pm/;
   }
   if (ref $self) {
       return $self->{$set} = $val;