warn when redefining relationships (RT#73876)

Add a carp when a relationship is being redefined and DBIC_TRACE is on.

diff --git a/lib/DBIx/Class.pm b/lib/DBIx/Class.pm
index 443e81e..ac48ee2 100644 (file)
--- a/lib/DBIx/Class.pm
+++ b/lib/DBIx/Class.pm
@@ -490,7 +490,9 @@ talexb: Alex Beamish <talexb@gmail.com>
 
 tamias: Ronald J Kimball <rjk@tamias.net>
 
-teejay : Aaron Trevena <teejay@cpan.org>
+teejay: Aaron Trevena <teejay@cpan.org>
+
+timbunce: Tim Bunce <Tim.Bunce@pobox.com>
 
 Todd Lipcon
 

diff --git a/lib/DBIx/Class/ResultSource.pm b/lib/DBIx/Class/ResultSource.pm
index 8bf7d67..c030d94 100644 (file)
--- a/lib/DBIx/Class/ResultSource.pm
+++ b/lib/DBIx/Class/ResultSource.pm
@@ -1248,6 +1248,12 @@ sub add_relationship {
   }
 
   my %rels = %{ $self->_relationships };
+  if ($rels{$rel} && $ENV{DBIC_TRACE}) {
+    # warning is useful e.g. for large Schema::Loader generated schemas where
+    # relationships have been added manually and then later generated by
+    # Schema::Loader.
+    carp "$rel relationship redefined";
+  }
   $rels{$rel} = { class => $f_source_name,
                   source => $f_source_name,
                   cond  => $cond,