Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

fix segfault when eval perl5 code using a threaded perl

(found by mberends++)
  • Loading branch information...
commit fd1e6d8fb5d58a669d80f6b0687bf97a330f1f19 1 parent b99829c
@pmurias pmurias authored
Showing with 1 addition and 1 deletion.
  1. +1 −1  lib/p5embed.c
View
2  lib/p5embed.c
@@ -20,7 +20,7 @@ static PerlInterpreter *my_perl;
void p5embed_initialize()
{
PERL_SYS_INIT3(0,NULL,NULL);
- PerlInterpreter* my_perl = perl_alloc();
+ my_perl = perl_alloc();
perl_construct(my_perl);
char *embedding[] = { "", "-e", "0" };
perl_parse(my_perl, xs_init, 3, embedding, NULL);
Please sign in to comment.
Something went wrong with that request. Please try again.