From: David Kamholz <dkamholz@cpan.org>
Date: Fri, 4 Aug 2006 08:56:10 +0000 (+0000)
Subject: fix think-o
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=96a3c685e86416445cbd59dc2309e102f52b9c87;p=dbsrgits%2FDBIx-Class-Historic.git

fix think-o
---

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;