Hello all,

I am trying to use the perl debugger (using Apache mod_perl-2.0.2-6.3.el5
and httpd httpd-2.2.3-11.el).
I followed the instructions in
http://www.perl.com/pub/a/2006/02/09/debug_mod_perl.html and
http://perl.apache.org/docs/1.0/guide/debug.html but the debugger does not
run correctly.

The symptoms: the debugger is correcly called but does not dipslay the
source script. For example, when I access to the
Apache2::AuthSSO::Angie::authenticate_form method (declared in a
PerlAuthentHandler), the debugger displays

Apache2::AuthSSO::Angie::authenticate_form((eval
150)[/mnt/go/public/perl/Apache2-AuthSSO/lib/Apache2/AuthSSO/Sessions.pm:42]:1):
1:      (caller(0))[0]

instead of

Apache2::AuthSSO::Angie::authenticate_form(/mnt/go/public/perl/Apache2-AuthSSO-Angie/lib//Apache2/AuthSSO/Angie.pm:55):
55:         my ($self, $r) = @_;

On the contrary, I can access the souce code for a method declared in the
PerlResponseHandler (see trace below)

What is wrong in my configuration ?
Could you please give me some hints ?


Below the debugger output :


[EMAIL PROTECTED] Apache-DB-0.13]# /usr/sbin/httpd -X -DPERLDB
[notice] Apache::DB initialized in child 26694

Loading DB routines from perl5db.pl version 1.28
Editor support available.

Enter h or `h h' for help, or `man perldebug' for more help.

Apache2::Status::handler(/usr/lib/perl5/vendor_perl/5.8.8/i386-linux-thread-multi/Apache2/Status.pm:110):
110:        my ($r) = @_;
  DB<1> c
Apache2::AuthSSO::Angie::authenticate_form((eval
150)[/mnt/go/public/perl/Apache2-AuthSSO/lib/Apache2/AuthSSO/Sessions.pm:42]:1):
1:      (caller(0))[0]
  DB<1> n
Apache2::AuthSSO::Angie::authenticate_form((eval
151)[/mnt/go/public/perl/Apache2-AuthSSO/lib/Apache2/AuthSSO/Sessions/Cache/FastMmap.pm:44]:1):
1:      (caller(0))[0]
  DB<1>

<snip>

  DB<1> r
scalar context return from Apache2::AuthSSO::Angie::authenticate_form: 0
Apache2::AuthSSO::session_refresh((eval
161)[/mnt/go/public/perl/Apache2-AuthSSO/lib/Apache2/AuthSSO/Session.pm:64]:1):
1:      (caller(0))[0]
  DB<1> n
Apache2::AuthSSO::session_refresh((eval
162)[/mnt/go/public/perl/Apache2-AuthSSO/lib/Apache2/AuthSSO/Session.pm:83]:1):
1:      (caller(0))[0]
  DB<1>
Apache2::AuthSSO::session_refresh((eval
163)[/mnt/go/public/perl/Apache2-AuthSSO/lib/Apache2/AuthSSO/Session.pm:174]:1):
1:      (caller(0))[0]
  DB<1>
Apache2::AuthSSO::session_refresh((eval
164)[/mnt/go/public/perl/Apache2-AuthSSO/lib/Apache2/AuthSSO/Session.pm:90]:1):
1:      (caller(0))[0]
  DB<1> r
scalar context return from Apache2::AuthSSO::session_refresh: 0
Apache2::AuthSSO::BackEndFactory::send_to((eval
175)[/mnt/go/public/perl/Apache2-AuthSSO/lib/Apache2/AuthSSO/BackEndFactory.pm:179]:1):
1:      (caller(0))[0]
  DB<1> r
scalar context return from Apache2::AuthSSO::BackEndFactory::send_to: 0
Apache2::AuthSSO::Angie::authenticate_form((eval
185)[/mnt/go/public/perl/Apache2-AuthSSO/lib/Apache2/AuthSSO/Sessions.pm:42]:1):
1:      (caller(0))[0]
  DB<1> r
scalar context return from Apache2::AuthSSO::Angie::authenticate_form: 0
Apache2::AuthSSO::session_refresh((eval
196)[/mnt/go/public/perl/Apache2-AuthSSO/lib/Apache2/AuthSSO/Session.pm:64]:1):
1:      (caller(0))[0]
  DB<1> r
scalar context return from Apache2::AuthSSO::session_refresh: 0
Apache2::AuthSSO::BackEndFactory::send_to((eval
210)[/mnt/go/public/perl/Apache2-AuthSSO/lib/Apache2/AuthSSO/BackEndFactory.pm:179]:1):
1:      (caller(0))[0]
  DB<1> r
scalar context return from Apache2::AuthSSO::BackEndFactory::send_to: 0
Apache2::AuthSSO::Test::response(/usr/lib/perl5/site_perl/5.8.5/Apache2/AuthSSO/Test.pm:16):
16:         my ($self,$r) = @_;
  DB<1> n
Apache2::AuthSSO::Test::response(/usr/lib/perl5/site_perl/5.8.5/Apache2/AuthSSO/Test.pm:18):
18:         my $cookie = 1;
  DB<1>
Apache2::AuthSSO::Test::response(/usr/lib/perl5/site_perl/5.8.5/Apache2/AuthSSO/Test.pm:19):
19:         $r->content_type('text/plain');
  DB<1>

Reply via email to