PerlIO_printf() does not take aTHX_ as an argument

and if you use it, you can build fine on unthreaded perl, but
threaded will blow up. Sigh.

1 files changed, 1 insertions, 1 deletions

diff --git a/regexec.c b/regexec.c
index 0da34af4ff..8e90d2edcb 100644
--- a/regexec.c
+++ b/regexec.c
@@ -5668,7 +5668,7 @@ S_regmatch(pTHX_ regmatch_info *reginfo, char *startpos, regnode *prog)
 		    DEBUG_TRIE_EXECUTE_r({
                                 DUMP_EXEC_POS( (char *)uc, scan, utf8_target, depth );
                                 /* HERE */
-                                PerlIO_printf( aTHX_ Perl_debug_log,
+                                PerlIO_printf( Perl_debug_log,
                                     "%*s%sState: %4"UVxf" Accepted: %c ",
                                     INDENT_CHARS(depth), "", PL_colors[4],
 			            (UV)state, (accepted ? 'Y' : 'N'));