diff options
Diffstat (limited to 'regcomp_debug.c')
-rw-r--r-- | regcomp_debug.c | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/regcomp_debug.c b/regcomp_debug.c index 74f080a9d9..589ca6991f 100644 --- a/regcomp_debug.c +++ b/regcomp_debug.c @@ -83,8 +83,12 @@ Perl_debug_studydata(pTHX_ const char *where, scan_data_t *data, DECLARE_AND_GET_RE_DEBUG_FLAGS; DEBUG_OPTIMISE_MORE_r({ - if (!data) + if (!data) { + Perl_re_indentf(aTHX_ "%s: NO DATA", + depth, + where); return; + } Perl_re_indentf(aTHX_ "%s: M/S/D: %" IVdf "/%" IVdf "/%" IVdf " Pos:%" IVdf "/%" IVdf " Flags: 0x%" UVXf, depth, where, |