diff options
author | Hugo van der Sanden <hv@crypt.org> | 2015-02-18 10:55:15 +0000 |
---|---|---|
committer | Hugo van der Sanden <hv@crypt.org> | 2015-02-18 11:15:22 +0000 |
commit | d0bec20370cb0ec3e757fde65d8f1d13693e913f (patch) | |
tree | a83627a1a4d6afd99849881b993c90d138704857 /regexec.c | |
parent | c67aee7a0ec313b3a0ea285a77b3cda5496f4e17 (diff) | |
download | perl-d0bec20370cb0ec3e757fde65d8f1d13693e913f.tar.gz |
[perl #123870] fixup trie runtime debug output
The trie_words av may not exist if -Dr was not enabled at compile time,
so we must be more defensive for debug output at runtime.
Diffstat (limited to 'regexec.c')
-rw-r--r-- | regexec.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -4422,8 +4422,8 @@ S_regmatch(pTHX_ regmatch_info *reginfo, char *startpos, regnode *prog) DEBUG_EXECUTE_r({ AV *const trie_words = MUTABLE_AV(rexi->data->data[ARG(ST.me)+TRIE_WORDS_OFFSET]); - SV ** const tmp = av_fetch( trie_words, - ST.nextword-1, 0 ); + SV ** const tmp = trie_words + ? av_fetch(trie_words, ST.nextword - 1, 0) : NULL; SV *sv= tmp ? sv_newmortal() : NULL; PerlIO_printf( Perl_debug_log, |