PATCH: mod_perl_mark_where crashs with Perl 5.8.0 in mod_perl 1.27

[Gerald Richter <ri...@ecos.de>]

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