perly.y, op.c: PL_in_my is an enum (kind of), not a bool

Author: mauke

op.c

@@ -4142,7 +4142,7 @@ S_my_kid(pTHX_ OP *o, OP *attrs, OP **imopsp)
         } else if (attrs) {
             GV * const gv = cGVOPx_gv(cUNOPo->op_first);
             assert(PL_parser);
-            PL_parser->in_my = FALSE;
+            PL_parser->in_my = KEY_NULL;
             PL_parser->in_my_stash = NULL;
             apply_attrs(GvSTASH(gv),
                         (type == OP_RV2SV ? GvSVn(gv) :
@@ -4175,7 +4175,7 @@ S_my_kid(pTHX_ OP *o, OP *attrs, OP **imopsp)
         HV *stash;
 
         assert(PL_parser);
-        PL_parser->in_my = FALSE;
+        PL_parser->in_my = KEY_NULL;
         PL_parser->in_my_stash = NULL;
 
         /* check for C<my Dog $spot> when deciding package */
@@ -4233,7 +4233,7 @@ Perl_my_attrs(pTHX_ OP *o, OP *attrs)
             o = op_append_list(OP_LIST, o, rops);
         }
     }
-    PL_parser->in_my = FALSE;
+    PL_parser->in_my = KEY_NULL;
     PL_parser->in_my_stash = NULL;
     return o;
 }
@@ -4863,7 +4863,7 @@ Perl_localize(pTHX_ OP *o, I32 lex)
         o = my(o);
     else
         o = op_lvalue(o, OP_NULL);		/* a bit kludgey */
-    PL_parser->in_my = FALSE;
+    PL_parser->in_my = KEY_NULL;
     PL_parser->in_my_stash = NULL;
     return o;
 }

perly.act

@@ -289,7 +289,7 @@ catch_paren:	empty
 			/* not really valid grammar but we detect it in the
 			 * action block to throw a nicer error message */
 	|	PERLY_PAREN_OPEN
-			{ parser->in_my = 1; }
+			{ parser->in_my = KEY_catch; }
 		scalar
 			{ parser->in_my = 0; intro_my(); }
 		PERLY_PAREN_CLOSE