Author: phred
Date: Sat Feb 6 19:42:36 2010
New Revision: 907287
URL: http://svn.apache.org/viewvc?rev=907287&view=rev
Log:
Whoops, mistakenly included untested patch in the last commit. Reverting, and
applying typo fix.
Modified:
perl/Apache-DBI/trunk/lib/Apache/DBI.pm
Modified: perl/Apache-DBI/trunk/lib/Apache/DBI.pm
URL:
http://svn.apache.org/viewvc/perl/Apache-DBI/trunk/lib/Apache/DBI.pm?rev=907287&r1=907286&r2=907287&view=diff
==============================================================================
--- perl/Apache-DBI/trunk/lib/Apache/DBI.pm (original)
+++ perl/Apache-DBI/trunk/lib/Apache/DBI.pm Sat Feb 6 19:42:36 2010
@@ -39,9 +39,6 @@
# a negative value de-activates ping,
# default = 0
my %LastPingTime; # keeps track of last ping per data_source
-my $ChildExitHandlerInstalled; # set to true on installation of
- # PerlChildExitHandler
-my $InChild;
# Check to see if we need to reset TaintIn and TaintOut
my $TaintInOut = ($DBI::VERSION >= 1.31) ? 1 : 0;
@@ -221,22 +218,6 @@
1;
}
-# The PerlChildExitHandler disconnects all open connections
-sub childexit {
-
- my $prefix = "$$ Apache::DBI ";
- debug(2, "$prefix PerlChildExitHandler");
-
- foreach my $dbh (values(%Connected)) {
- eval { DBI::db::disconnect($dbh) };
- if ($@) {
- debug(2, "$prefix DBI::db::disconnect failed - $@");
- }
- }
-
- 1;
-}
-
# The PerlCleanupHandler is supposed to initiate a rollback after the script
# has finished if AutoCommit is off.
# Note: the PerlCleanupHandler runs after the response has been sent to
