Pass non-null argc,argv to PERL_SYS_INIT

Fixes a segfault on Win32, but not the "Aborted" issue...
sorear · Oct 16, 2011 · d468f8f · d468f8f
1 parent 6c08103
commit d468f8f
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/lib/p5embed.c b/lib/p5embed.c
@@ -19,7 +19,10 @@ xs_init(pTHX)
 static PerlInterpreter *my_perl;
 void p5embed_initialize()
 {
-  PERL_SYS_INIT3(0,NULL,NULL);
+  int argc = 1;
+  char *argv0[] = { "perl", NULL, 0 };
+  char **argv = argv0;
+  PERL_SYS_INIT(&argc,&argv);
   my_perl = perl_alloc();
   perl_construct(my_perl);
   char *embedding[] = { "", "-e", "0" };