From: Dave Mitchell <davem@fdisolutions.com>
Date: Sat, 8 Apr 2006 23:58:51 +0000 (+0000)
Subject: fix potential null deref introduced by change #27716
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=a8079bbafd0755b1090563484782ac56ce8fe943;p=p5sagit%2Fp5-mst-13.2.git

fix potential null deref introduced by change #27716
p4raw-link: @27716 on //depot/perl: 4f639d21b5c9a079a204ea1a0168f3c1a4ed5214

p4raw-id: //depot/perl@27746
---

diff --git a/regexec.c b/regexec.c
index 663af09..2028e8d 100644
--- a/regexec.c
+++ b/regexec.c
@@ -4821,7 +4821,7 @@ Perl_regclass_swash(pTHX_ register const regnode* node, bool doinit, SV** listsv
     SV *sw  = NULL;
     SV *si  = NULL;
     SV *alt = NULL;
-    const struct reg_data *data = PL_reg_re->data;
+    const struct reg_data *data = PL_reg_re ? PL_reg_re->data : NULL;
 
     if (data && data->count) {
 	const U32 n = ARG(node);