eliminate RF_warned flag from PL_reg_flags

[perl5.git] / regexp.h

diff --git a/regexp.h b/regexp.h
index 035e2ba..3863308 100644 (file)
--- a/regexp.h
+++ b/regexp.h
@@ -576,6 +576,7 @@ typedef struct {
     char *ganch;
     char *cutpoint;
     bool is_utf8_pat;
+    bool warned; /* we have issued a recursion warning; no need for more */
 } regmatch_info;