pike.git
/
src
/
modules
/
Perl
/
perlmod.c
version
»
Context lines:
10
20
40
80
file
none
3
pike.git/src/modules/Perl/perlmod.c:1:
-
/* $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" #include "svalue.h" #include "array.h" #include "stralloc.h" #include "interpret.h" #include "module_support.h" #include "threads.h" #include "mapping.h"
pike.git/src/modules/Perl/perlmod.c:177:
fprintf(stderr, "[exit_perl_glue]\n"); #endif if(PERL) { struct perlmod_storage *storage=THIS; 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; } perl_free(storage->my_perl); MT_FORBID; num_perl_interpreters--; } _free_arg_and_env(); }