Skip to content

Commit e11c762

Browse files
committed
perly.y, op.c: PL_in_my is an enum (kind of), not a bool
1 parent 9568817 commit e11c762

File tree

5 files changed

+9
-9
lines changed

5 files changed

+9
-9
lines changed

op.c

Lines changed: 4 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -4141,7 +4141,7 @@ S_my_kid(pTHX_ OP *o, OP *attrs, OP **imopsp)
41414141
} else if (attrs) {
41424142
GV * const gv = cGVOPx_gv(cUNOPo->op_first);
41434143
assert(PL_parser);
4144-
PL_parser->in_my = FALSE;
4144+
PL_parser->in_my = KEY_NULL;
41454145
PL_parser->in_my_stash = NULL;
41464146
apply_attrs(GvSTASH(gv),
41474147
(type == OP_RV2SV ? GvSVn(gv) :
@@ -4174,7 +4174,7 @@ S_my_kid(pTHX_ OP *o, OP *attrs, OP **imopsp)
41744174
HV *stash;
41754175

41764176
assert(PL_parser);
4177-
PL_parser->in_my = FALSE;
4177+
PL_parser->in_my = KEY_NULL;
41784178
PL_parser->in_my_stash = NULL;
41794179

41804180
/* check for C<my Dog $spot> when deciding package */
@@ -4232,7 +4232,7 @@ Perl_my_attrs(pTHX_ OP *o, OP *attrs)
42324232
o = op_append_list(OP_LIST, o, rops);
42334233
}
42344234
}
4235-
PL_parser->in_my = FALSE;
4235+
PL_parser->in_my = KEY_NULL;
42364236
PL_parser->in_my_stash = NULL;
42374237
return o;
42384238
}
@@ -4857,7 +4857,7 @@ Perl_localize(pTHX_ OP *o, I32 lex)
48574857
o = my(o);
48584858
else
48594859
o = op_lvalue(o, OP_NULL); /* a bit kludgey */
4860-
PL_parser->in_my = FALSE;
4860+
PL_parser->in_my = KEY_NULL;
48614861
PL_parser->in_my_stash = NULL;
48624862
return o;
48634863
}

perly.act

Lines changed: 2 additions & 2 deletions
Some generated files are not rendered by default. Learn more about customizing how changed files appear on GitHub.

perly.h

Lines changed: 1 addition & 1 deletion
Some generated files are not rendered by default. Learn more about customizing how changed files appear on GitHub.

perly.tab

Lines changed: 1 addition & 1 deletion
Some generated files are not rendered by default. Learn more about customizing how changed files appear on GitHub.

perly.y

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -289,7 +289,7 @@ catch_paren: empty
289289
/* not really valid grammar but we detect it in the
290290
* action block to throw a nicer error message */
291291
| PERLY_PAREN_OPEN
292-
{ parser->in_my = 1; }
292+
{ parser->in_my = KEY_catch; }
293293
scalar
294294
{ parser->in_my = 0; intro_my(); }
295295
PERLY_PAREN_CLOSE

0 commit comments

Comments
 (0)