This patch should make Apache::DBI work with subclassed DBI
connections.  The only downside is that it makes ALL of your cached
connections subclassed if you give it one that is subclassed.  Given how
most people use DBI subclasses (for universal functionality on all DBI
connections), this is probably not an issue.

- Perrin
--- /usr/lib/perl5/site_perl/5.8.3/Apache/DBI.pm	2004-02-17 19:18:50.000000000 -0500
+++ ./DBI.pm	2004-08-13 17:41:41.045930048 -0400
@@ -130,6 +130,12 @@
 
     # return the new database handle
     print STDERR "$prefix new connect to '$Idx'\n" if $Apache::DBI::DEBUG;
+    
+    # support subclassed DBI connections
+    if (ref $Connected{$Idx} ne 'DBI::st') {
+        push @Apache::DBI::st::ISA, ref $Connected{$Idx};
+    }
+    
     return (bless $Connected{$Idx}, 'Apache::DBI::db');
 }
 

-- 
Report problems: http://perl.apache.org/bugs/
Mail list info: http://perl.apache.org/maillist/modperl.html
List etiquette: http://perl.apache.org/maillist/email-etiquette.html

Reply via email to