do not try to silently handle disconnects when in a manual txn_begin/txn_end transaction
Brandon L. Black [Thu, 10 May 2007 21:11:04 +0000 (21:11 +0000)]
lib/DBIx/Class/Storage/DBI.pm

index d0289c9..5cc795f 100644 (file)
@@ -506,7 +506,9 @@ sub dbh_do {
   ref $coderef eq 'CODE' or $self->throw_exception
     ('$coderef must be a CODE reference');
 
-  return $coderef->($self, $self->_dbh, @_) if $self->{_in_dbh_do};
+  return $coderef->($self, $self->_dbh, @_) if $self->{_in_dbh_do}
+      || $self->{transaction_depth};
+
   local $self->{_in_dbh_do} = 1;
 
   my @result;