Permalink
Browse files

Newx should be called after perl construction. This fixes the silent …

…exit before evaluation on strawberry 5.10.x
  • Loading branch information...
1 parent a221ca8 commit e215f0992cccd26af72ea0e794ba46d54fbf534e AZawawi committed with Jul 29, 2010
Showing with 3 additions and 2 deletions.
  1. +3 −2 src/pmc/p5interpreter.pmc
@@ -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);

0 comments on commit e215f09

Please sign in to comment.