In perl.git, the branch blead has been updated

<http://perl5.git.perl.org/perl.git/commitdiff/889458f14071a618cdc0fb519092327c4d5f5f61?hp=13627b93c0f303e40235c233fdd0341ed68ecdb9>

- Log -----------------------------------------------------------------
commit 889458f14071a618cdc0fb519092327c4d5f5f61
Author: Yves Orton <[email protected]>
Date:   Wed Oct 19 17:25:40 2016 +0200

    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.
-----------------------------------------------------------------------

Summary of changes:
 regexec.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/regexec.c b/regexec.c
index 0da34af..8e90d2e 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'));

--
Perl5 Master Repository

Reply via email to