From: Rafael Kitover <rkitover@cpan.org>
Date: Fri, 13 Feb 2009 11:29:37 +0000 (+0000)
Subject: Throw exception on invalidated session if in a transaction.
X-Git-Tag: v0.08240~127
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=7a63d4457137972821c5cb38d33d63994e41fcdf;hp=1f5bf3246dd2046c2979b1c59af36fd152aaab85;p=dbsrgits%2FDBIx-Class.git

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
--- 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