misc win32 fixes

	Subject: [PATCH 5.004_66]
	Message-ID: <001a01bd949d$8fd18050$a32fa8c0@tau.Active>

p4raw-id: //depot/perl@1116

1 files changed, 4 insertions, 1 deletions

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