Beta Shell v2.0

File Manager

~ /usr/share/doc/mod_perl/docs/devel/debug

Name	Size	Perms	Modified	Actions
[ .. / .. ]
c.pod	32.01 KB	-rw-r--r--	2022-02-02 13:11:12	Edit Del
code	-	drwxr-xr-x	2022-02-23 11:30:21	Del
perl.pod	1.29 KB	-rw-r--r--	2022-01-30 13:02:20	Edit Del

Editing: perl.pod (1.29 KB)

=head1 NAME

Debugging mod_perl Perl Internals

=head1 Description

This document explains how to debug Perl code under mod_perl.

Most of the L<mod_perl 1.0 debug
documentation|docs::1.0::guide::debug> applies to mod_perl 2.0:





=head2 Detecting Hanging Processes

See L<Hanging Processes: Detection and
Diagnostics|docs::1.0::guide::debug/Hanging_Processes__Detection_and_Diagnostics>
for the explanation, but under mp2 to use signals to detect where the
process is spinning, you can't use C<$SIG{USR2}>, you have to use
POSIX signals. i.e. the code becomes:

  use Carp ();
  use POSIX qw(SIGUSR2);
  my $mask      = POSIX::SigSet->new( SIGUSR2 );
  my $action    = POSIX::SigAction->new(\&tell_where_spinning, $mask);
  my $oldaction = POSIX::SigAction->new();
  POSIX::sigaction(SIGUSR2, $action, $oldaction );
  
  sub tell_where_spinning {
      Carp::confess("caught SIGUSR2!");
  };

and then:

  % kill USR2 <pid_of_the_spinning_process>

and watch for the trace in F<error_log>.





=head1 Maintainers

Maintainer is the person(s) you should contact with updates,
corrections and patches.

=over

=item *

Stas Bekman [http://stason.org/]

=back

=head1 Authors

=over

=item *

Stas Bekman [http://stason.org/]

=back

Only the major authors are listed above. For contributors see the
Changes file.

=cut