From: Nicholas Clark <nick@ccl4.org>
Date: Fri, 19 Jan 2007 18:07:23 +0000 (+0000)
Subject: Fix breakage for -DDEBUGGING accidentally introduced with change 29882.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=0945d666f9e33989e2071c69834ec769605040c7;p=p5sagit%2Fp5-mst-13.2.git

Fix breakage for -DDEBUGGING accidentally introduced with change 29882.

p4raw-id: //depot/perl@29883
---

diff --git a/sv.c b/sv.c
index cf89c0b..513a241 100644
--- a/sv.c
+++ b/sv.c
@@ -697,7 +697,7 @@ Perl_get_arena(pTHX_ size_t arena_size, U32 misc)
 	newroot->next = aroot;
 	aroot = newroot;
 	PL_body_arenas = (void *) newroot;
-	DEBUG_m(PerlIO_printf(Perl_debug_log, "new arenaset %p\n", (void*)*aroot));
+	DEBUG_m(PerlIO_printf(Perl_debug_log, "new arenaset %p\n", aroot));
     }
 
     /* ok, now have arena-set with at least 1 empty/available arena-desc */