perl 5.003_04: malloc.c

A patch to perl5.003_02/malloc to give a sensible error abort() message
in ANSI C, and to give it to stderr instead of stdout.

Use config_h's STRINGIFY macro instead of pre-ANSI "p".

1 files changed, 2 insertions, 3 deletions

diff --git a/malloc.c b/malloc.c
index 806d03754e..f5b9f076a0 100644
--- a/malloc.c
+++ b/malloc.c
@@ -168,13 +168,12 @@ static	u_int nmalloc[NBUCKETS];
 #endif
 
 #ifdef DEBUGGING
-#define	ASSERT(p)   if (!(p)) botch("p"); else
+#define	ASSERT(p)   if (!(p)) botch(STRINGIFY(p));  else
 static void
 botch(s)
 	char *s;
 {
-
-	printf("assertion botched: %s\n", s);
+	PerlIO_printf(PerlIO_stderr(), "assertion botched: %s\n", s);
 	abort();
 }
 #else