Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

remove suspect PERL_SET_CONTEXT

  • Loading branch information...
commit bf4e20a7c3c0563cc109881842dde08d2f2e3e71 1 parent 8dbcaa8
@pmurias pmurias authored
Showing with 3 additions and 2 deletions.
  1. +3 −2 lib/p5embed.c
View
5 lib/p5embed.c
@@ -22,17 +22,18 @@ void p5embed_initialize()
printf("# initialising perl\n");
PERL_SYS_INIT3(0,NULL,NULL);
PerlInterpreter* my_perl = perl_alloc();
- PERL_SET_CONTEXT(my_perl);
perl_construct(my_perl);
char *embedding[] = { "", "-e", "0" };
perl_parse(my_perl, xs_init, 3, embedding, NULL);
PL_exit_flags |= PERL_EXIT_DESTRUCT_END;
- eval_pv("use lib 'perl5';use Niecza::Interoperability",TRUE);
+// eval_pv("use lib 'perl5';use Niecza::Interoperability",TRUE);
printf("# initialised perl\n");
}
SV* p5embed_eval(char* code) {
printf("# evaling code <%s>...\n",code);
+ eval_pv("1",TRUE);
+ printf("# evaled 1\n");
SV* ret = eval_pv(code,TRUE);
printf("# survived evaling code...\n");
return ret;
Please sign in to comment.
Something went wrong with that request. Please try again.