3 #define USE_SOCKETS_AS_HANDLES
15 char *staticlinkmodules[] = {
20 EXTERN_C void boot_DynaLoader _((CV* cv _CPERLarg));
25 char *file = __FILE__;
27 newXS("DynaLoader::boot_DynaLoader", boot_DynaLoader, file);
33 #define PERL_SYS_INIT(a, c)
36 main(int argc, char **argv, char **env)
41 if(!host.PerlCreate())
44 exitstatus = host.PerlParse(xs_init, argc, argv, NULL);
47 exitstatus = host.PerlRun();
54 #else /* PERL_OBJECT */
58 * GNU C does not do __declspec()
60 #define __declspec(foo)
62 /* Mingw32 defaults to globing command line
63 * This is inconsistent with other Win32 ports and
64 * seems to cause trouble with passing -DXSVERSION=\"1.6\"
65 * So we turn it off like this:
72 __declspec(dllimport) int RunPerl(int argc, char **argv, char **env, void *ios);
75 main(int argc, char **argv, char **env)
77 return RunPerl(argc, argv, env, (void*)0);
80 #endif /* PERL_OBJECT */