From 1dba03ad18b0deaa55bd6910958d31ba1d554bc0 Mon Sep 17 00:00:00 2001 From: Leif Stensson <leif@lysator.liu.se> Date: Thu, 23 Mar 2000 22:48:38 +0100 Subject: [PATCH] Added a fix to keep some perl5.004's from segfaulting. Rev: src/modules/Perl/perlmod.c:1.14 --- src/modules/Perl/perlmod.c | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) diff --git a/src/modules/Perl/perlmod.c b/src/modules/Perl/perlmod.c index bbc833fb8a..31afbc33ba 100644 --- a/src/modules/Perl/perlmod.c +++ b/src/modules/Perl/perlmod.c @@ -1,4 +1,4 @@ -/* $Id: perlmod.c,v 1.13 2000/03/18 21:12:38 leif Exp $ */ +/* $Id: perlmod.c,v 1.14 2000/03/23 21:48:38 leif Exp $ */ #include "builtin_functions.h" #include "global.h" @@ -184,6 +184,14 @@ static void exit_perl_glue(struct object *o) MT_PERMIT; if(storage->constructed) { + if (!storage->parsed) + { static char *dummyargv[] = { "perl", "-e", "1", 0 }; + extern void xs_init(void); + /* this should be unnecessary, but for some reason, some + * perl5.004 installations dump core if we don't do this. + */ + perl_parse(storage->my_perl, xs_init, 3, dummyargv, NULL); + } perl_destruct(storage->my_perl); storage->constructed=0; } -- GitLab