On Fri, 8 Sep 2000, Honza Pazdziora wrote:
|The code
|
| my $needCleanup = ($Idx =~ /AutoCommit[^\d]+0/) ? 1 : 0;
| if(!$Rollback{$Idx} and $needCleanup and Apache->can('push_handlers')) {
| print STDERR "$prefix push PerlCleanupHandler \n" if $Apache::DBI::DEBUG > 1;
| Apache->push_handlers("PerlCleanupHandler", \&cleanup);
|
|of Apache::DBI line 90 suggests that if AutoCommit isn't zero upon
|_connect_, the cleanup won't even be called. So if you do
|
| my $dbh = DBI->connect('dbi:Oracle:sid');
| $dbh->{'AutoCommit'} = 0;
|
|such a $dbh won't be rollbacked.
I did the AutoCommit upon connect. I don't manage to reproduce the error
condition, though. That's a problem.