william wrote:
On 5/29/08, Perrin Harkins <[EMAIL PROTECTED]> wrote:
On Wed, May 28, 2008 at 3:33 AM, william <[EMAIL PROTECTED]> wrote:
I put the following lines at the top of my startup.pl script
use APR::Pool (); #specific for mod_perl 2
use Apache::DB ();
Apache::DB->init();

Can you show us the part of httpd.conf where you call startup.pl?

I always place my debugger calls before any other modules load, usually right after mod_perl.so is loaded.


When I put the immediate-above code in <Perl></Perl> it's does
executed but my /var/log/apach2/errror.log does not show the debugging
process, so when I put in startup.pl script then only I will see the
debugging process

 DB<1> 
ModPerl::RegistryCooker::error_check(/usr/local/lib/perl/5.8.8/ModPerl/RegistryCooker.pm:698):
698:            return Apache2::Const::SERVER_ERROR;
  DB<1> 
ModPerl::RegistryCooker::convert_script_to_compiled_handler(/usr/local/lib/perl/5.8.8/ModPerl/RegistryCooker.pm:407):
407:        return $rc unless $rc == Apache2::Const::OK;
  DB<1> 
ModPerl::RegistryCooker::default_handler(/usr/local/lib/perl/5.8.8/ModPerl/RegistryCooker.pm:164):
164:            return $rc unless $rc == Apache2::Const::OK;
  DB<1> [Thu May 29 13:09:08 2008] [error] [client 127.0.0.1] File
does not exist: /var/www/favicon.ico, referer:
http://localhost/modperl/main.pl


Are you sure apache2 is the httpd executable and not some
script?

How do I check that ?


Now it's weird, when I check the error.log , many lines of code are
executed repeatedly, does that shows that I am not really using single
process ? Here are a few of it. Thanks.

82:           $self->{compounds}->{$word} = 1 if ($word =~ /_/);
  DB<1> WordNet::Tools::new(/usr/local/share/perl/5.8.8/WordNet/Tools.pm:82):
82:           $self->{compounds}->{$word} = 1 if ($word =~ /_/);
  DB<1> WordNet::Tools::new(/usr/local/share/perl/5.8.8/WordNet/Tools.pm:82):
82:           $self->{compounds}->{$word} = 1 if ($word =~ /_/);
  DB<1> WordNet::Tools::new(/usr/local/share/perl/5.8.8/WordNet/Tools.pm:82):
82:           $self->{compounds}->{$word} = 1 if ($word =~ /_/);
  DB<1> WordNet::Tools::new(/usr/local/share/perl/5.8.8/WordNet/Tools.pm:82):
82:           $self->{compounds}->{$word} = 1 if ($word =~ /_/);
  DB<1> WordNet::Tools::new(/usr/local/share/perl/5.8.8/WordNet/Tools.pm:82):
82:           $self->{compounds}->{$word} = 1 if ($word =~ /_/);
  DB<1> WordNet::Tools::new(/usr/local/share/perl/5.8.8/WordNet/Tools.pm:82):
82:           $self->{compounds}->{$word} = 1 if ($word =~ /_/);
  DB<1> WordNet::Tools::new(/usr/local/share/perl/5.8.8/WordNet/Tools.pm:82):
82:           $self->{compounds}->{$word} = 1 if ($word =~ /_/);
  DB<1> WordNet::Tools::new(/usr/local/share/perl/5.8.8/WordNet/Tools.pm:82):
82:           $self->{compounds}->{$word} = 1 if ($word =~ /_/);
  DB<1> WordNet::Tools::new(/usr/local/share/perl/5.8.8/WordNet/Tools.pm:82):
82:           $self->{compounds}->{$word} = 1 if ($word =~ /_/);
  DB<1> WordNet::Tools::new(/usr/local/share/perl/5.8.8/WordNet/Tools.pm:82):
82:           $self->{compounds}->{$word} = 1 if ($word =~ /_/);
  DB<1> WordNet::Tools::new(/usr/local/share/perl/5.8.8/WordNet/Tools.pm:82):
82:           $self->{compounds}->{$word} = 1 if ($word =~ /_/);
  DB<1> WordNet::Tools::new(/usr/local/share/perl/5.8.8/WordNet/Tools.pm:82):
82:           $self->{compounds}->{$word} = 1 if ($word =~ /_/);



  DB<1> File::Temp::CODE(0xabf9548)(/usr/share/perl/5.8/File/Temp.pm:132):
132:    use 5.005;
  DB<1> File::Temp::CODE(0xabf9548)(/usr/share/perl/5.8/File/Temp.pm:132):
132:    use 5.005;
  DB<1> File::Temp::CODE(0xabf9548)(/usr/share/perl/5.8/File/Temp.pm:132):
132:    use 5.005;
  DB<1> File::Temp::CODE(0xabf9554)(/usr/share/perl/5.8/File/Temp.pm:133):
133:    use strict;
  DB<1> File::Temp::CODE(0xabf9554)(/usr/share/perl/5.8/File/Temp.pm:133):
133:    use strict;
  DB<1> File::Temp::CODE(0xabf9554)(/usr/share/perl/5.8/File/Temp.pm:133):
133:    use strict;
  DB<1> File::Temp::CODE(0xabf9560)(/usr/share/perl/5.8/File/Temp.pm:134):
134:    use Carp;
  DB<1> File::Temp::CODE(0xabf9560)(/usr/share/perl/5.8/File/Temp.pm:134):
134:    use Carp;
  DB<1> File::Temp::CODE(0xabf9560)(/usr/share/perl/5.8/File/Temp.pm:134):
134:    use Carp;


--
Red Hot Penguin Consulting LLC
mod_perl/PostgreSQL consulting and implementation
http://www.redhotpenguin.com/

Reply via email to