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 (file)
--- 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);