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