The following code solves an issue where (with Oracle) giving a column definition an auto-incrementing sequence would die on the first insert operation.
$ svn diff
Index: lib/DBIx/Class/Storage/DBI.pm
===================================================================
--- lib/DBIx/Class/Storage/DBI.pm (revision 3901)
+++ lib/DBIx/Class/Storage/DBI.pm (working copy)
@@ -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) );
}
}
Bill Boulden
Developer
P: 716.817.5024
F: 716.636.6224
E: [EMAIL PROTECTED] <mailto:[EMAIL PROTECTED]>
www.seevast.com <http://www.seevast.com>
<<image001.jpg>>
_______________________________________________ List: http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/dbix-class IRC: irc.perl.org#dbix-class SVN: http://dev.catalyst.perl.org/repos/bast/DBIx-Class/ Searchable Archive: http://www.grokbase.com/group/[EMAIL PROTECTED]
