pp_ctl.c Convert _invoke_defer_block to legal name

khwilliamson · khwilliamson · commit 4dafb7208ab3 · 2025-08-23T08:00:10.000-06:00
diff --git a/pp_ctl.c b/pp_ctl.c
@@ -6471,7 +6471,7 @@ PP(pp_break)
 }
 
 static void
-_invoke_defer_block(pTHX_ U8 type, void * arg_)
+invoke_defer_block_(pTHX_ U8 type, void * arg_)
 {
     OP *start = (OP *) arg_;
 #ifdef DEBUGGING
@@ -6546,13 +6546,13 @@ _invoke_defer_block(pTHX_ U8 type, void * arg_)
 static void
 invoke_defer_block(pTHX_ void * arg_)
 {
-    _invoke_defer_block(aTHX_ CXt_DEFER, arg_);
+    invoke_defer_block_(aTHX_ CXt_DEFER, arg_);
 }
 
 static void
 invoke_finally_block(pTHX_ void * arg_)
 {
-    _invoke_defer_block(aTHX_ CXt_DEFER|CXp_FINALLY, arg_);
+    invoke_defer_block_(aTHX_ CXt_DEFER|CXp_FINALLY, arg_);
 }
 
 PP(pp_pushdefer)

Original file line number	Diff line number	Diff line change
`@@ -6471,7 +6471,7 @@ PP(pp_break)`
`6471`	`6471`	`}`
`6472`	`6472`
`6473`	`6473`	`static void`
`6474`		`-_invoke_defer_block(pTHX_ U8 type, void * arg_)`
	`6474`	`+invoke_defer_block_(pTHX_ U8 type, void * arg_)`
`6475`	`6475`	`{`
`6476`	`6476`	`OP start = (OP ) arg_;`
`6477`	`6477`	`#ifdef DEBUGGING`
`@@ -6546,13 +6546,13 @@ _invoke_defer_block(pTHX_ U8 type, void * arg_)`
`6546`	`6546`	`static void`
`6547`	`6547`	`invoke_defer_block(pTHX_ void * arg_)`
`6548`	`6548`	`{`
`6549`		`- _invoke_defer_block(aTHX_ CXt_DEFER, arg_);`
	`6549`	`+ invoke_defer_block_(aTHX_ CXt_DEFER, arg_);`
`6550`	`6550`	`}`
`6551`	`6551`
`6552`	`6552`	`static void`
`6553`	`6553`	`invoke_finally_block(pTHX_ void * arg_)`
`6554`	`6554`	`{`
`6555`		`- _invoke_defer_block(aTHX_ CXt_DEFER\|CXp_FINALLY, arg_);`
	`6555`	`+ invoke_defer_block_(aTHX_ CXt_DEFER\|CXp_FINALLY, arg_);`
`6556`	`6556`	`}`
`6557`	`6557`
`6558`	`6558`	`PP(pp_pushdefer)`