Fix for Coverity perl5 CID 29068: Insecure temporary file (SECURE_TEMP) secure_temp...

[perl5.git] / parser.h

diff --git a/parser.h b/parser.h
index ff494eb..ff5867e 100644 (file)
--- a/parser.h
+++ b/parser.h
@@ -54,7 +54,8 @@ typedef struct yy_parser {
     char       *lex_brackstack;/* what kind of brackets to pop */
     char       *lex_casestack; /* what kind of case mods in effect */
     U8         lex_defer;      /* state after determined token */
-    bool       lex_dojoin;     /* doing an array interpolation */
+    U8         lex_dojoin;     /* doing an array interpolation
+                                  1 = @{...}  2 = ->@ */
     U8         lex_expect;     /* expect after determined token */
     U8         expect;         /* how to interpret ambiguous tokens */
     I32                lex_formbrack;  /* bracket count at outer format level */