### Start to hack by Cheok
<Perl>
    use Apache::DB();
    Apache::DB->init;
</Perl>
<Location />
    PerlFixupHandler Apache::DB
</Location>
### End to hack by Cheok

##</code><code>##

       if (!$loaded_db) {
           # Fallback
           # require 'Apache/perl5db.pl';
           # Hacked by Cheok
           require Devel::ptkdb;
       }

##</code><code>##

[yanchengdev] [modperl] Prototype mismatch: sub CORE::GLOBAL::exit: none vs (;$) at /usr/local/lib/perl/5.8.8/Tk.pm line 414. [failed] [Connection refused]
[yanchengdev] [modperl] [Wed Nov  5 10:48:53 2008] [notice] child pid 15698 exit signal Segmentation fault (11) [success]
[yanchengdev] [modperl] Prototype mismatch: sub CORE::GLOBAL::exit: none vs (;$) at /usr/local/lib/perl/5.8.8/Tk.pm line 414. [failed] [Connection refused]
[yanchengdev] [modperl] [Wed Nov  5 10:48:54 2008] [notice] child pid 15699 exit signal Segmentation fault (11) [success]

##</code><code>##

/etc/apache/httpd.conf
/usr/share/apache/default-configs/apache-ssl/httpd.conf
/usr/share/apache/default-configs/apache/httpd.conf
/usr/share/apache/default-configs/apache-perl/httpd.conf
/usr/share/doc/apache/examples/httpd.conf
/usr/local/apache_proxy/conf/httpd.conf
/usr/local/apache_modperl/conf/httpd.conf   <--- I am editing this one

/usr/share/perl5/Locale/Object/DB.pm
/usr/share/perl5/DBIx/Class/DB.pm
/usr/share/perl/5.8.8/DB.pm
/usr/local/lib/perl/5.8.8/Apache/DB.pm      <--- I am editing this one