[Bast-commits] r5467 - DBIx-Class/0.08/trunk/lib/DBIx/Class/Storage/DBI/Oracle

[caelum at dev.catalyst.perl.org]

Author: caelum
Date: 2009-02-13 11:29:37 +0000 (Fri, 13 Feb 2009)
New Revision: 5467

Modified:
   DBIx-Class/0.08/trunk/lib/DBIx/Class/Storage/DBI/Oracle/Generic.pm
Log:
Throw exception on invalidated session if in a transaction.


Modified: DBIx-Class/0.08/trunk/lib/DBIx/Class/Storage/DBI/Oracle/Generic.pm
===================================================================
--- DBIx-Class/0.08/trunk/lib/DBIx/Class/Storage/DBI/Oracle/Generic.pm	2009-02-13 10:45:46 UTC (rev 5466)
+++ DBIx-Class/0.08/trunk/lib/DBIx/Class/Storage/DBI/Oracle/Generic.pm	2009-02-13 11:29:37 UTC (rev 5467)
@@ -94,6 +94,7 @@
       $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