pike.git / src / modules / Perl / perlmod.c

version» Context lines:

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();   }