fixup! [op.c] Break fragile long-distance dependency on keyword list order

Branislav Zahradník · Branislav Zahradník · commit 0679acaf34b1 · 2025-09-19T14:14:53.000+02:00
diff --git a/op.c b/op.c
@@ -16177,6 +16177,7 @@ Perl_coresub_op(pTHX_ SV * const coreargssv, const int code,
             case KEY___PACKAGE__: caller_index = 0; break; /* (caller)[0] */
             case KEY___FILE__:    caller_index = 1; break; /* (caller)[1] */
             case KEY___LINE__:    caller_index = 2; break; /* (caller)[2] */
+            default:              assert (caller_index > 0);
         }
 
         return op_append_elem(OP_LINESEQ,

Original file line number	Diff line number	Diff line change
`@@ -16177,6 +16177,7 @@ Perl_coresub_op(pTHX_ SV * const coreargssv, const int code,`
`16177`	`16177`	`case KEY___PACKAGE__: caller_index = 0; break; /* (caller)[0] */`
`16178`	`16178`	`case KEY___FILE__: caller_index = 1; break; /* (caller)[1] */`
`16179`	`16179`	`case KEY___LINE__: caller_index = 2; break; /* (caller)[2] */`
	`16180`	`+ default: assert (caller_index > 0);`
`16180`	`16181`	`}`
`16181`	`16182`
`16182`	`16183`	`return op_append_elem(OP_LINESEQ,`