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

[edenc at dev.catalyst.perl.org]

Author: edenc
Date: 2008-01-30 18:07:31 +0000 (Wed, 30 Jan 2008)
New Revision: 3993

Modified:
   DBIx-Class-Partitioned/1.000/trunk/lib/DBIx/Class/Partitioned.pm
Log:
fetching values from database before copying into the partition

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-30 16:27:24 UTC (rev 3992)
+++ DBIx-Class-Partitioned/1.000/trunk/lib/DBIx/Class/Partitioned.pm	2008-01-30 18:07:31 UTC (rev 3993)
@@ -88,9 +88,11 @@
 sub insert {
     my $self = shift;
     local $self->result_source->schema->{restricting_object};
+    my $result = $self->next::method(@_);
+    $self->discard_changes; # fetch store changes (default values, triggers, etc)
     $self->_current_partition( $self->_partition_name || '' );
     $self->insert_partitioned;
-    return $self->next::method(@_);
+    return $result;
 }
 
 sub update {