[Bast-commits] r8064 - DBIx-Class/0.08/trunk/lib/DBIx/Class

[ribasushi at dev.catalyst.perl.org]

Author: ribasushi
Date: 2009-12-12 11:31:12 +0000 (Sat, 12 Dec 2009)
New Revision: 8064

Modified:
   DBIx-Class/0.08/trunk/lib/DBIx/Class/ResultSource.pm
Log:
Even clearer unloaded FK exception

Modified: DBIx-Class/0.08/trunk/lib/DBIx/Class/ResultSource.pm
===================================================================
--- DBIx-Class/0.08/trunk/lib/DBIx/Class/ResultSource.pm	2009-12-10 15:04:37 UTC (rev 8063)
+++ DBIx-Class/0.08/trunk/lib/DBIx/Class/ResultSource.pm	2009-12-12 11:31:12 UTC (rev 8064)
@@ -1334,13 +1334,13 @@
         unless ($for->has_column_loaded($v)) {
           if ($for->in_storage) {
             $self->throw_exception(sprintf
-              'Unable to resolve relationship from %s to %s: column %s.%s not '
-            . 'loaded from storage (or not passed to new() prior to insert()). '
+              "Unable to resolve relationship '%s' from '%s': column '%s' of object %s "
+            . 'not loaded from storage (or not passed to new() prior to insert()). '
             . 'Maybe you forgot to call ->discard_changes to get defaults from the db.',
-
+              $as,
               $for->result_source->source_name,
-              $as,
-              $as, $v,
+              $v,
+              $for,
             );
           }
           return $UNRESOLVABLE_CONDITION;