diff options
| author | Tony Cook <tony@develop-help.com> | 2022-07-12 10:51:02 +1000 |
|---|---|---|
| committer | Tony Cook <tony@develop-help.com> | 2022-08-08 15:15:02 +1000 |
| commit | c870f3e4592ba2dc04fe5a29962b87d18004f952 (patch) | |
| tree | 1caf28b0be3b276a51088715b0ee350361d2bd56 /regcomp.c | |
| parent | 90eef0af06f8dd17dd39a5ed9827264ff5b6b981 (diff) | |
| download | perl-c870f3e4592ba2dc04fe5a29962b87d18004f952.tar.gz | |
avoid dereferencing prog which may be NULL
CID 353002
Diffstat (limited to 'regcomp.c')
| -rw-r--r-- | regcomp.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -20906,7 +20906,7 @@ Perl_get_re_gclass_aux_data(pTHX_ const regexp *prog, const regnode* node, bool SV *si = NULL; /* Input initialization string */ SV* invlist = NULL; - RXi_GET_DECL(prog, progi); + RXi_GET_DECL_NULL(prog, progi); const struct reg_data * const data = prog ? progi->data : NULL; #if !defined(PERL_IN_XSUB_RE) || defined(PLUGGABLE_RE_EXTENSION) |