summaryrefslogtreecommitdiff
path: root/regexec.c
diff options
context:
space:
mode:
authorJarkko Hietaniemi <jhi@iki.fi>2014-06-29 08:47:17 -0400
committerJarkko Hietaniemi <jhi@iki.fi>2014-06-30 07:46:07 -0400
commitd20a21f4234bfabf05d35fc8fec2109e08b35993 (patch)
tree32eec5d647dadd556a1894b6e65977a3d8a646d8 /regexec.c
parente78bc664fe3216189f18efd14d7903cdc918b90d (diff)
downloadperl-d20a21f4234bfabf05d35fc8fec2109e08b35993.tar.gz
Assert before deref due to possible NULL.
Coverity perl5 CID 68587.
Diffstat (limited to 'regexec.c')
-rw-r--r--regexec.c1
1 files changed, 1 insertions, 0 deletions
diff --git a/regexec.c b/regexec.c
index 88615a4dc5..9100e474f8 100644
--- a/regexec.c
+++ b/regexec.c
@@ -6188,6 +6188,7 @@ NULL
/* calculate c1 and c2 for possible match of 1st char
* following curly */
ST.c1 = ST.c2 = CHRTEST_VOID;
+ assert(ST.B);
if (HAS_TEXT(ST.B) || JUMPABLE(ST.B)) {
regnode *text_node = ST.B;
if (! HAS_TEXT(text_node))