added patch, undo earlier workaround

	Subject: Re: Why does saferealloc(NULL,size) croak? [PATCH] against _66
	Message-ID: <35831f69.4975644@smtp1.ibm.net>

p4raw-id: //depot/perl@1125

1 files changed, 1 insertions, 4 deletions

diff --git a/perl.c b/perl.c
index f436f44d78..7b76edf996 100644
--- a/perl.c
+++ b/perl.c
@@ -604,10 +604,7 @@ CPerlObj::perl_atexit(void (*fn) (CPerlObj*,void *), void *ptr)
 perl_atexit(void (*fn) (void *), void *ptr)
 #endif
 {
-    if(exitlist)
-	Renew(exitlist, exitlistlen+1, PerlExitListEntry);
-    else
-	New(999, exitlist, 1, PerlExitListEntry);
+    Renew(exitlist, exitlistlen+1, PerlExitListEntry);
     exitlist[exitlistlen].fn = fn;
     exitlist[exitlistlen].ptr = ptr;
     ++exitlistlen;