You are viewing a plain text version of this content. The canonical link for it is here.
Posted to modperl-cvs@perl.apache.org by do...@hyperreal.org on 1999/06/02 03:08:33 UTC
cvs commit: modperl/src/modules/perl mod_perl.c
dougm 99/06/01 18:08:33
Modified: src/modules/perl mod_perl.c
Log:
oops, only tested w/ 5.005_57 last night, now works w/ 5.005_03
Revision Changes Path
1.88 +3 -3 modperl/src/modules/perl/mod_perl.c
Index: mod_perl.c
===================================================================
RCS file: /export/home/cvs/modperl/src/modules/perl/mod_perl.c,v
retrieving revision 1.87
retrieving revision 1.88
diff -u -r1.87 -r1.88
--- mod_perl.c 1999/06/01 06:33:06 1.87
+++ mod_perl.c 1999/06/02 01:08:30 1.88
@@ -969,9 +969,9 @@
#endif
#ifdef PERL_TRACE
-static char *sig_name(I32 num)
+static char *my_signame(I32 num)
{
-#ifdef Perl_psig_name
+#ifdef psig_name
return Perl_psig_name[num] ?
SvPV(Perl_psig_name[num],na) : "?";
#else
@@ -1000,7 +1000,7 @@
for (i=0; i < cfg->sigsave->nelts; i++) {
MP_TRACE_g(fprintf(stderr,
"mod_perl: restoring SIG%s (%d) handler from: 0x%lx to: 0x%lx\n",
- sig_name(sigs[i]->signo), (int)sigs[i]->signo,
+ my_signame(sigs[i]->signo), (int)sigs[i]->signo,
(unsigned long)Perl_rsignal_state(sigs[i]->signo),
(unsigned long)sigs[i]->h));
Perl_rsignal(sigs[i]->signo, sigs[i]->h);