Mailing List Archive

Hi,

while testing EMbperl with Perl 5.8.0 I had some trouble with
mod_perl_makr_where function. It fails sometimes and Apache terminates with
a segfault. Here is a patch against mod_perl 1.x cvs version that fixes the
problem.

Gerald

--- src/modules/perl/perl_util.c 2002-12-23 21:28:35.000000000 +0100
+++ /usr/psrc/build/mod_perl-1.27/src/modules/perl/perl_util.c 2002-12-23
21:27:03.000000000 +0100
@@ -852,7 +852,10 @@
name = perl_sv_name(sub);

sv_setpv(GvSV(CopFILEGV(curcop)), "");
- sv_catpvf(GvSV(CopFILEGV(curcop)), "%s subroutine `%_'", where, name);
+ if (name)
+ sv_catpvf(GvSV(CopFILEGV(curcop)), "%s subroutine `%_'", where,
name);
+ else
+ sv_catpvf(GvSV(CopFILEGV(curcop)), "%s subroutine <unknown>", where);
CopLINE_set(curcop, 1);

if(name)

-------------------------------------------------------------
Gerald Richter ecos electronic communication services gmbh
Internetconnect * Webserver/-design/-datenbanken * Consulting

Post: Tulpenstrasse 5 D-55276 Dienheim b. Mainz
E-Mail: richter@ecos.de Voice: +49 6133 925131
WWW: http://www.ecos.de Fax: +49 6133 925152
-------------------------------------------------------------


---------------------------------------------------------------------
To unsubscribe, e-mail: docs-dev-unsubscribe@perl.apache.org
For additional commands, e-mail: docs-dev-help@perl.apache.org