{
int exitstatus;
PerlInterpreter *my_perl, *new_perl = NULL;
- struct perl_thread *thr;
#ifndef __BORLANDC__
/* XXX this _may_ be a problem on some compilers (e.g. Borland) that
if (!(my_perl = perl_alloc()))
return (1);
- perl_construct( my_perl );
+ perl_construct(my_perl);
PL_perl_destruct_level = 0;
exitstatus = perl_parse(my_perl, xs_init, argc, argv, env);
# else
new_perl = perl_clone(my_perl, 1);
# endif
- exitstatus = perl_run( new_perl );
+ exitstatus = perl_run(new_perl);
PERL_SET_THX(my_perl);
#else
- exitstatus = perl_run( my_perl );
+ exitstatus = perl_run(my_perl);
#endif
}
- perl_destruct( my_perl );
- perl_free( my_perl );
+ perl_destruct(my_perl);
+ perl_free(my_perl);
#ifdef USE_ITHREADS
if (new_perl) {
PERL_SET_THX(new_perl);
EXTERN_C void
set_w32_module_name(void);
+#ifdef __MINGW32__
+EXTERN_C /* GCC in C++ mode mangles the name, otherwise */
+#endif
BOOL APIENTRY
DllMain(HANDLE hModule, /* DLL module handle */
DWORD fdwReason, /* reason called */