This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Embedding
[perl5.git] / lib / ExtUtils / t / Embed.t
index be12b8f..682ca53 100644 (file)
@@ -155,7 +155,11 @@ static char *cmds[] = { "perl","-e", "print qq[ok 5\\n]", NULL };
 
 int main(int argc, char **argv, char **env)
 {
-    PerlInterpreter *my_perl = perl_alloc();
+    PerlInterpreter *my_perl;
+
+    PERL_SYS_INIT3(&argc,&argv,&env);
+
+    my_perl = perl_alloc();
 
     my_puts("ok 2");
 
@@ -181,5 +185,7 @@ int main(int argc, char **argv, char **env)
 
     my_puts("ok 8");
 
+    PERL_SYS_TERM();
+
     return 0;
 }