This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
eliminate RF_warned flag from PL_reg_flags
[perl5.git] / 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;