Throw exception on invalidated session if in a transaction.

diff --git a/lib/DBIx/Class/Storage/DBI/Oracle/Generic.pm b/lib/DBIx/Class/Storage/DBI/Oracle/Generic.pm
index 9f564e3..cb5d62b 100644 (file)
--- a/lib/DBIx/Class/Storage/DBI/Oracle/Generic.pm
+++ b/lib/DBIx/Class/Storage/DBI/Oracle/Generic.pm
@@ -94,6 +94,7 @@ sub _dbh_execute {
       $self->disconnect;
 
       $self->throw_exception($exception) if $self->{_in_dbh_do};
+      $self->throw_exception($exception) if $self->transaction_depth;
 
       $self->ensure_connected;
     } elsif ($exception =~ /ORA-01003/) { # invalid cursor