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

[ribasushi at dev.catalyst.perl.org]

Author: ribasushi
Date: 2009-09-09 12:16:12 +0000 (Wed, 09 Sep 2009)
New Revision: 7613

Modified:
   DBIx-Class/0.08/trunk/lib/DBIx/Class/ResultSource.pm
Log:
Fix warning

Modified: DBIx-Class/0.08/trunk/lib/DBIx/Class/ResultSource.pm
===================================================================
--- DBIx-Class/0.08/trunk/lib/DBIx/Class/ResultSource.pm	2009-09-09 10:27:02 UTC (rev 7612)
+++ DBIx-Class/0.08/trunk/lib/DBIx/Class/ResultSource.pm	2009-09-09 12:16:12 UTC (rev 7613)
@@ -1323,9 +1323,9 @@
         unless ($for->has_column_loaded($v)) {
           if ($for->in_storage) {
             $self->throw_exception(
-              "Column ${v} not loaded or not passed to new() prior to insert()"
-                ." on ${for} trying to resolve relationship (maybe you forgot "
-                  ."to call ->discard_changes to get defaults from the db)"
+              "Unable to resolve relationship to ${for}: column ${v} 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."
             );
           }
           return $UNRESOLVABLE_CONDITION;