At 9:58 AM +0000 12/18/01, Ged Haywood wrote:
>Hi all,
>
>On Mon, 17 Dec 2001, Stas Bekman wrote (privately, discussing a book review:):
>
>> Ged wrote:
>> <book_extract>
>>   If you want to use C<Apache::DBI> but you have both situations on
>>   one machine, at the time of writing the only solution is to run two
>>   mod_perl enabled servers, one which uses C<Apache::DBI> and one
>>   which does not.
>> </book_extract>
>> [META: Stas: Could one not simply patch Apache::DBI to
>> permit disconnects from one of the databases? -- Ged.]
>>
>> That's probably a good idea. Go ahead and suggest it to the author/list?
>
>Author/List:  Is this a Good Idea?


I've not tested or tried this, but wouldn't this patch work?

--- ApacheDBI-0.88/DBI.pm       Fri Jan 12 13:59:00 2001
+++ ADBI.pm     Tue Dec 18 11:53:00 2001
@@ -177,6 +177,10 @@
    @ISA=qw(DBI::db);
    use strict;
    sub disconnect {
+         my $dbh = shift;
+         if($dbh->{'DBIDisconnect'}) {
+               $dbh->DBI::db::disconnect();
+         }
        my $prefix = "$$ Apache::DBI            ";
        print STDERR "$prefix disconnect (overloaded) \n" if $Apache::DBI::DEBUG
> 1;
        1;
Thus setting the DBIDisconnect flag would cause the dbh to be disconnected.

Rob

--
When I used a Mac, they laughed because I had no command prompt. When 
I used Linux, they laughed because I had no GUI.  

Reply via email to