Change 27746: fix potential null deref introduced by change #27716

[Dave Mitchell]

Change 27746 by [EMAIL PROTECTED] on 2006/04/08 23:58:51

        fix potential null deref introduced by change #27716

Affected files ...

... //depot/perl/regexec.c#397 edit

Differences ...

==== //depot/perl/regexec.c#397 (text) ====
Index: perl/regexec.c
--- perl/regexec.c#396~27717~   2006-04-04 20:17:50.000000000 -0700
+++ perl/regexec.c      2006-04-08 16:58:51.000000000 -0700
@@ -4821,7 +4821,7 @@
     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);
End of Patch.