I make out a solution, injecting an END block for each new born DB handle, and
it seems work:
sub connect {
...
eval END { if (\$dbh-{Active}) {
\$dbh-rollback;
\$dbh-disconnect();
}
} unless $dbh-{AutoCommit};
return $dbh;
From: David E. Wheeler da...@kineticode.com
To: tiger peng tigerpeng2...@yahoo.com
Cc: dbi-users@perl.org dbi-users@perl.org
Sent: Wednesday, August 24, 2011 11:52 AM
Subject: Re: Turn off Issuing rollback... warning for AutoCommit.
On Aug 24, 2011, at 7:51 AM, tiger peng
::Oracle
Not sure if this will work in DBI 1.30 though as I do not have that code base
arount to look at.
Hope this helps
cheers
John
Subject: Re: Turn off Issuing rollback... warning for AutoCommit.
From: da...@kineticode.com
Date: Wed, 24 Aug 2011 09:52:22 -0700
CC: dbi-users