From: Gurusamy Sarathy <gsar@cpan.org>
Date: Thu, 18 Jun 1998 16:35:11 +0000 (+0000)
Subject: fix spurious cxstack_max init that trampled memory
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=4c50607213c2b23bfa1ef0717a5a31b40103430b;p=p5sagit%2Fp5-mst-13.2.git

fix spurious cxstack_max init that trampled memory

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

diff --git a/perl.c b/perl.c
index 7705a04..7e2d562 100644
--- a/perl.c
+++ b/perl.c
@@ -51,8 +51,6 @@ dEXTCONST char rcsid[] = "perl.c\nPatch level: ###\n";
     copline	= NOLINE;	\
     curcop	= &compiling;	\
     curcopdb    = NULL;		\
-    cxstack_ix  = -1;		\
-    cxstack_max = 128;		\
     dbargs	= 0;		\
     dlmax	= 128;		\
     laststatval	= -1;		\
@@ -67,6 +65,13 @@ dEXTCONST char rcsid[] = "perl.c\nPatch level: ###\n";
     laststatval = -1;		\
     laststype   = OP_STAT;	\
     mess_sv     = Nullsv;	\
+    splitstr    = " ";		\
+    generation  = 100;		\
+    exitlist    = NULL;		\
+    exitlistlen = 0;		\
+    regindent   = 0;		\
+    in_clean_objs = FALSE;	\
+    in_clean_all= FALSE;	\
   } STMT_END
 
 #ifdef PERL_OBJECT