summaryrefslogtreecommitdiff
path: root/perl.c
diff options
context:
space:
mode:
authorGurusamy Sarathy <gsar@cpan.org>1998-06-18 16:35:11 +0000
committerGurusamy Sarathy <gsar@cpan.org>1998-06-18 16:35:11 +0000
commit4c50607213c2b23bfa1ef0717a5a31b40103430b (patch)
tree63916c5b20011d7b4c4dc431b528d5e3e559c93f /perl.c
parent00db4c452819e776e72467584ab4e9617d012f7b (diff)
downloadperl-4c50607213c2b23bfa1ef0717a5a31b40103430b.tar.gz
fix spurious cxstack_max init that trampled memory
p4raw-id: //depot/perl@1144
Diffstat (limited to 'perl.c')
-rw-r--r--perl.c9
1 files changed, 7 insertions, 2 deletions
diff --git a/perl.c b/perl.c
index 7705a04a9f..7e2d562101 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