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

[ribasushi at dev.catalyst.perl.org]

Author: ribasushi
Date: 2009-12-12 13:27:18 +0000 (Sat, 12 Dec 2009)
New Revision: 8066

Modified:
   DBIx-Class/0.08/trunk/lib/DBIx/Class/ResultSource.pm
Log:
As clear as it gets

Modified: DBIx-Class/0.08/trunk/lib/DBIx/Class/ResultSource.pm
===================================================================
--- DBIx-Class/0.08/trunk/lib/DBIx/Class/ResultSource.pm	2009-12-12 13:24:30 UTC (rev 8065)
+++ DBIx-Class/0.08/trunk/lib/DBIx/Class/ResultSource.pm	2009-12-12 13:27:18 UTC (rev 8066)
@@ -1334,13 +1334,13 @@
         unless ($for->has_column_loaded($v)) {
           if ($for->in_storage) {
             $self->throw_exception(sprintf
-              "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.',
+              "Unable to resolve relationship '%s' from object %s: column '%s' not "
+            . 'loaded from storage (or not passed to new() prior to insert()). You '
+            . 'probably need to call ->discard_changes to get the server-side defaults '
+            . 'from the database.',
               $as,
-              $for->result_source->source_name,
+              $for,
               $v,
-              $for,
             );
           }
           return $UNRESOLVABLE_CONDITION;