[Bast-commits] r8580 - in DBIx-Class/0.08/trunk: lib/DBIx/Class t/multi_create

[ribasushi at dev.catalyst.perl.org]

Author: ribasushi
Date: 2010-02-08 11:20:47 +0000 (Mon, 08 Feb 2010)
New Revision: 8580

Modified:
   DBIx-Class/0.08/trunk/lib/DBIx/Class/Row.pm
   DBIx-Class/0.08/trunk/t/multi_create/standard.t
Log:
Fix some fallout

Modified: DBIx-Class/0.08/trunk/lib/DBIx/Class/Row.pm
===================================================================
--- DBIx-Class/0.08/trunk/lib/DBIx/Class/Row.pm	2010-02-08 11:03:23 UTC (rev 8579)
+++ DBIx-Class/0.08/trunk/lib/DBIx/Class/Row.pm	2010-02-08 11:20:47 UTC (rev 8580)
@@ -758,9 +758,9 @@
 
   my %inflated;
   for my $col (keys %loaded_colinfo) {
-    my $acc = $loaded_colinfo{$col}{accessor};
-    if (defined $acc) {
-      $inflated{$col} = $self->$acc;
+    if (exists $loaded_colinfo{$col}{accessor}) {
+      my $acc = $loaded_colinfo{$col}{accessor};
+      $inflated{$col} = $self->$acc if defined $acc;
     }
     else {
       $inflated{$col} = $self->$col;

Modified: DBIx-Class/0.08/trunk/t/multi_create/standard.t
===================================================================
--- DBIx-Class/0.08/trunk/t/multi_create/standard.t	2010-02-08 11:03:23 UTC (rev 8579)
+++ DBIx-Class/0.08/trunk/t/multi_create/standard.t	2010-02-08 11:20:47 UTC (rev 8580)
@@ -72,7 +72,7 @@
       ],
     });
   },
-  qr/Recursive update is not supported over relationships of type multi/,
+  qr/Recursive update is not supported over relationships of type 'multi'/,
   'create via update of multi relationships throws an exception'
 );