From: David Kamholz 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;