small fixes
authorAlexander Hartmaier <abraxxa@cpan.org>
Sat, 23 Oct 2010 14:16:44 +0000 (16:16 +0200)
committerAlexander Hartmaier <abraxxa@cpan.org>
Sat, 23 Oct 2010 14:16:44 +0000 (16:16 +0200)
lib/DBIx/Class/ResultSet/RecursiveUpdate.pm

index 67a7ffd602bf7605eaa33d06b045a14343e68916..965fa1c385a5a0c2aa90888799dc3c936ff86eb3 100644 (file)
@@ -78,7 +78,7 @@ sub recursive_update {
         grep { !exists $resolved->{$_} } @missing;
     if ( !$object && !scalar @missing ) {
 
-       # warn 'finding by +resolved: ' . Dumper( $updates ); use Data::Dumper;
+        # warn 'finding by +resolved: ' . Dumper( $updates ); use Data::Dumper;
         $object = $self->find( $updates, { key => 'primary' } );
     }
 
@@ -171,7 +171,7 @@ sub recursive_update {
     for my $name ( keys %other_methods ) {
 
         #warn "update other $name\n";
-        $object->$name( $updates->{$name} );
+        $object->$name( $other_methods{$name} );
     }
     for my $name ( keys %pre_updates ) {
 
@@ -184,7 +184,7 @@ sub recursive_update {
     # don't allow insert to recurse to related objects
     # do the recursion ourselves
     # $object->{_rel_in_storage} = 1;
-    #warn "CHANGED: " . $object->is_changed . "\n":
+    #warn "CHANGED: " . $object->is_changed . "\n";
     #warn "IN STOR: " .  $object->in_storage . "\n";
     $object->update_or_insert if $object->is_changed;
     $object->discard_changes;
This page took 0.021287 seconds and 4 git commands to generate.