X-Git-Url: https://git.decadent.org.uk/gitweb/?a=blobdiff_plain;ds=sidebyside;f=lib%2FMaypole%2FModel%2FCDBI%2FFromCGI.pm;h=7a725d1258f6ee8debdab2e0f3c2cc5b3aca883d;hb=99967c293b1b617a0cac8126f923f6acfa2e4598;hp=df0b9ffa63e4c666754f666f5c7a146f37338f4d;hpb=f591252a06f4b7a9db154062128f4f2a59831cac;p=maypole.git

diff --git a/lib/Maypole/Model/CDBI/FromCGI.pm b/lib/Maypole/Model/CDBI/FromCGI.pm
index df0b9ff..7a725d1 100644
--- a/lib/Maypole/Model/CDBI/FromCGI.pm
+++ b/lib/Maypole/Model/CDBI/FromCGI.pm
@@ -514,7 +514,7 @@ sub _create_related {
     $created      ||= [];
     my  $rel_meta = $self->related_meta('r',$accssr);
     if (!$rel_meta) {
-	$self->_carp("No relationship for $accssr in " . ref($self));
+	$self->_carp("[_create_related] No relationship for $accssr in " . ref($self));
 	return;
     }
     my $rel_type  = $rel_meta->{name};