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

[castaway at dev.catalyst.perl.org]

Author: castaway
Date: 2008-01-03 20:44:14 +0000 (Thu, 03 Jan 2008)
New Revision: 3917

Modified:
   DBIx-Class/0.08/branches/oracle_sequence/lib/DBIx/Class/Storage/DBI.pm
Log:
Apply patch from billisdog to ensure we rebless to the correct class before fetching sequence data


Modified: DBIx-Class/0.08/branches/oracle_sequence/lib/DBIx/Class/Storage/DBI.pm
===================================================================
--- DBIx-Class/0.08/branches/oracle_sequence/lib/DBIx/Class/Storage/DBI.pm	2008-01-03 14:50:52 UTC (rev 3916)
+++ DBIx-Class/0.08/branches/oracle_sequence/lib/DBIx/Class/Storage/DBI.pm	2008-01-03 20:44:14 UTC (rev 3917)
@@ -1024,6 +1024,7 @@
       my $col_info = $source->column_info($col);
 
       if ( $col_info->{auto_nextval} ) {
+        $self->ensure_connected; 
         $to_insert->{$col} = $self->_sequence_fetch( 'nextval', $col_info->{sequence} || $self->_dbh_get_autoinc_seq($self->dbh, $source) );
       }
     }