I hate you all.

[dbsrgits/DBIx-Class.git] / lib / DBIx / Class / AccessorGroup.pm

diff --git a/lib/DBIx/Class/AccessorGroup.pm b/lib/DBIx/Class/AccessorGroup.pm
index 8035725..56bcf1b 100644 (file)
--- 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;