More generalized fix for #127855, overallocate in SvGROW and not just sv_grow()

[perl5.git] / regcomp.c

diff --git a/regcomp.c b/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,"--------");