[Bast-commits] r3968 - DBIx-Class-Partitioned/1.000/trunk/lib/DBIx/Class

[edenc at dev.catalyst.perl.org]

Author: edenc
Date: 2008-01-22 20:58:23 +0000 (Tue, 22 Jan 2008)
New Revision: 3968

Modified:
   DBIx-Class-Partitioned/1.000/trunk/lib/DBIx/Class/Partitioned.pm
Log:
updating all columns as to include dirty columns set during the call to update

Modified: DBIx-Class-Partitioned/1.000/trunk/lib/DBIx/Class/Partitioned.pm
===================================================================
--- DBIx-Class-Partitioned/1.000/trunk/lib/DBIx/Class/Partitioned.pm	2008-01-22 20:31:11 UTC (rev 3967)
+++ DBIx-Class-Partitioned/1.000/trunk/lib/DBIx/Class/Partitioned.pm	2008-01-22 20:58:23 UTC (rev 3968)
@@ -61,8 +61,7 @@
     my ( $self, $to_update ) = @_;
     my $partition =
       $self->result_source->partition( $self->_current_partition );
-    return unless %$to_update;
-    $partition->storage->update( $partition, $to_update,
+    $partition->storage->update( $partition, { $self->get_columns },
         $self->ident_condition );
 }
 
@@ -110,7 +109,7 @@
         }
         else {
             if ( $self->in_partition ) {
-                $self->update_partitioned( \%to_update );
+                $self->update_partitioned if keys %to_update;
             }
             else {
                 $self->insert_partitioned;