Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
Newx should be called after perl construction. This fixes the silent …
…exit before evaluation on strawberry 5.10.x
  • Loading branch information
AZawawi authored and jnthn committed Jul 30, 2010
1 parent a221ca8 commit e215f09
Showing 1 changed file with 3 additions and 2 deletions.
5 changes: 3 additions & 2 deletions src/pmc/p5interpreter.pmc
Expand Up @@ -76,9 +76,10 @@ Set up P5Interpreter PMC.
inited = 1;
}

Newx(nexus, 1, struct blizkost_nexus);
/* Allocate interpreter and stash it in struct. */
my_perl = nexus->my_perl = perl_alloc();
my_perl = perl_alloc();
Newx(nexus, 1, struct blizkost_nexus);
nexus->my_perl = my_perl;
perl_construct(my_perl);
PL_origalen = 1;
perl_parse(my_perl, xs_init, 3, embedding, NULL);
Expand Down

0 comments on commit e215f09

Please sign in to comment.