toke.c: Avoid a conversion to/from UTF-8

[perl5.git] / sv.c

diff --git a/sv.c b/sv.c
index dc392f0..e915e7d 100644 (file)
--- a/sv.c
+++ b/sv.c
@@ -13144,7 +13144,7 @@ Perl_parser_dup(pTHX_ const yy_parser *const proto, CLONE_PARAMS *const param)
     parser->old_parser = NULL;
     parser->stack = NULL;
     parser->ps = NULL;
-    parser->stack_maxbase = NULL;
+    parser->stack_max1 = 0;
     /* XXX parser->stack->state = 0; */
 
     /* XXX eventually, just Copy() most of the parser struct ? */