[Bast-commits] r3858 - DBIx-Class/0.08/branches/oracle_sequence/lib/DBIx/Class

[plu at dev.catalyst.perl.org]

Author: plu
Date: 2007-11-06 21:56:44 +0000 (Tue, 06 Nov 2007)
New Revision: 3858

Modified:
   DBIx-Class/0.08/branches/oracle_sequence/lib/DBIx/Class/Row.pm
Log:
update row object after storage has run the insert statement. So the row contains the automatically fetched nextval of the oracle sequence.


Modified: DBIx-Class/0.08/branches/oracle_sequence/lib/DBIx/Class/Row.pm
===================================================================
--- DBIx-Class/0.08/branches/oracle_sequence/lib/DBIx/Class/Row.pm	2007-11-06 21:54:38 UTC (rev 3857)
+++ DBIx-Class/0.08/branches/oracle_sequence/lib/DBIx/Class/Row.pm	2007-11-06 21:56:44 UTC (rev 3858)
@@ -207,7 +207,8 @@
     }
   }
 
-  $source->storage->insert($source, { $self->get_columns });
+  my $updated_cols = $source->storage->insert($source, { $self->get_columns });
+  $self->set_columns($updated_cols);
 
   ## PK::Auto
   my @auto_pri = grep {