From: Nicholas Clark <nick@ccl4.org>
Date: Fri, 6 May 2005 19:08:35 +0000 (+0000)
Subject: Ooops. Wise man tests with ithreads before commiting. D'oh!
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=c3929b7290197fd6055681e2dabb11ad55efccae;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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;