regcomp.c: truncate long debug dump output

What an ANYOF node matches could theoretically be millions of characters
long;  This only outputs the first portion of very long ones.

diff --git a/regcomp.c b/regcomp.c
index 0c30210..2d6bb7f 100644 (file)
--- a/regcomp.c
+++ b/regcomp.c
@@ -11978,7 +11978,16 @@ Perl_regprop(pTHX_ const regexp *prog, SV *sv, const regnode *o)
                         }
 
                        while (*s) {
-                           if (*s == '\n')
+                           if (*s == '\n') {
+
+                                /* Truncate very long output */
+                               if (s - origs > 256) {
+                                   Perl_sv_catpvf(aTHX_ sv,
+                                                  "%.*s...",
+                                                  (int) (s - origs - 1),
+                                                  t);
+                                   goto out_dump;
+                               }
                                *s = ' ';
                            }
                            else if (*s == '\t') {
@@ -11992,6 +12001,8 @@ Perl_regprop(pTHX_ const regexp *prog, SV *sv, const regnode *o)
                        sv_catpv(sv, t);
                    }
 
+               out_dump:
+
                    Safefree(origs);
                }
                SvREFCNT_dec(lv);