This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
fix debug sprintf issue
authorYves Orton <demerphq@gmail.com>
Sat, 26 Mar 2016 11:22:06 +0000 (12:22 +0100)
committerYves Orton <demerphq@gmail.com>
Sun, 3 Apr 2016 08:13:52 +0000 (10:13 +0200)
regcomp.c

index 63f6e9e..be6cb96 100644 (file)
--- a/regcomp.c
+++ b/regcomp.c
@@ -2166,7 +2166,8 @@ S_dump_trie_interim_table(pTHX_ const struct _reg_trie_data *trie,
         }
     }
 
-    Perl_re_printf( aTHX_  "\n%*sState+-",depth+1 );
+    Perl_re_printf( aTHX_ "\n");
+    Perl_re_indentf( aTHX_  "State+-", depth+1 );
 
     for( charid=0 ; charid < trie->uniquecharcount ; charid++ ) {
         Perl_re_printf( aTHX_  "%.*s", colwidth,"--------");