Ooops. Wise man tests with ithreads before commiting. D'oh!

p4raw-id: //depot/perl@24409

diff --git a/sv.c b/sv.c
index 64eea01..c79d527 100644 (file)
--- a/sv.c
+++ b/sv.c
@@ -10434,9 +10434,9 @@ S_more_pte(pTHX)
 {
     register struct ptr_tbl_ent* pte;
     register struct ptr_tbl_ent* pteend;
-    New(0, ptr, PERL_ARENA_SIZE/sizeof(struct ptr_tbl_ent), struct ptr_tbl_ent);
-    ptr->next = PL_pte_arenaroot;
-    PL_pte_arenaroot = ptr;
+    New(0, pte, PERL_ARENA_SIZE/sizeof(struct ptr_tbl_ent), struct ptr_tbl_ent);
+    pte->next = PL_pte_arenaroot;
+    PL_pte_arenaroot = pte;
 
     pteend = &pte[PERL_ARENA_SIZE / sizeof(struct ptr_tbl_ent) - 1];
     PL_pte_root = ++pte;