From: Daniel Westermann-Clark Date: Thu, 27 Jul 2006 06:07:24 +0000 (-0400) Subject: Merge 'trunk' into 'DBIx-Class-current' X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=586420b85c6d47dc9d69668c23cd18a5e293d6bb;p=dbsrgits%2FDBIx-Class-Historic.git Merge 'trunk' into 'DBIx-Class-current' --- 586420b85c6d47dc9d69668c23cd18a5e293d6bb diff --cc lib/DBIx/Class/Storage/DBI/Oracle.pm index 9c979ee,d5b605f..94df0e6 --- a/lib/DBIx/Class/Storage/DBI/Oracle.pm +++ b/lib/DBIx/Class/Storage/DBI/Oracle.pm @@@ -27,20 -28,23 +27,27 @@@ sub get_autoinc_seq AND t.triggering_event = 'INSERT' AND t.status = 'ENABLED' }; - # trigger_body is a LONG - $dbh->{LongReadLen} = 64 * 1024 if ($dbh->{LongReadLen} < 64 * 1024); - my $sth = $dbh->prepare($sql); - $sth->execute( uc($source->name) ); - while (my ($insert_trigger) = $sth->fetchrow_array) { - return uc($1) if $insert_trigger =~ m!(\w+)\.nextval!i; # col name goes here??? - } - croak "Unable to find a sequence INSERT trigger on table '" . $source->name . "'."; + + $self->dbh_do(sub { + my $dbh = shift; + # trigger_body is a LONG + $dbh->{LongReadLen} = 64 * 1024 if ($dbh->{LongReadLen} < 64 * 1024); + my $sth = $dbh->prepare($sql); + $sth->execute( uc($source->name) ); + while (my ($insert_trigger) = $sth->fetchrow_array) { + return uc($1) if $insert_trigger =~ m!(\w+)\.nextval!i; # col name goes here??? + } + croak "Unable to find a sequence INSERT trigger on table '" . $source->name . "'."; + }); } + sub columns_info_for { + my ($self, $table) = @_; + + $self->next::method($self, uc($table)); + } + + 1; =head1 NAME