Skip to content

Commit 74afe9d

Browse files
author
Branislav Zahradník
committed
fixup! [op.c] Break fragile long-distance dependency on keyword list order
1 parent e4c183c commit 74afe9d

File tree

1 file changed

+3
-3
lines changed

1 file changed

+3
-3
lines changed

op.c

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -16174,9 +16174,9 @@ Perl_coresub_op(pTHX_ SV * const coreargssv, const int code,
1617416174
case 0: {
1617516175
int caller_index = -1;
1617616176
switch (-code) {
16177-
case (KEY___PACKAGE__): { caller_index = 0; break; } /* (caller)[0] */
16178-
case (KEY___FILE__): { caller_index = 1; break; } /* (caller)[1] */
16179-
case (KEY___LINE__): { caller_index = 2; break; } /* (caller)[2] */
16177+
case KEY___PACKAGE__: caller_index = 0; break; /* (caller)[0] */
16178+
case KEY___FILE__: caller_index = 1; break; /* (caller)[1] */
16179+
case KEY___LINE__: caller_index = 2; break; /* (caller)[2] */
1618016180
}
1618116181

1618216182
return op_append_elem(OP_LINESEQ,

0 commit comments

Comments
 (0)