perl-dev mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From Fred Moyer <f...@redhotpenguin.com>
Subject Fwd: svn commit: r907287 - /perl/Apache-DBI/trunk/lib/Apache/DBI.pm
Date Sat, 06 Feb 2010 19:44:31 GMT
So this was a whoops when committing a typo fix, but I think this same
code was submitted in a patch a while ago and I was testing it.  Any
comments on this approach?

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

---------------------------------------------------------------------
To unsubscribe, e-mail: dev-unsubscribe@perl.apache.org
For additional commands, e-mail: dev-help@perl.apache.org


Mime
View raw message