PATCH: [perl # 126178] Unterminated /(?i/

diff --git a/pod/perldiag.pod b/pod/perldiag.pod
index db798d7..5111410 100644 (file)
--- a/pod/perldiag.pod
+++ b/pod/perldiag.pod
@@ -5262,6 +5262,13 @@ missing the final closing quote or angle bracket after the name.  The
 S<<-- HERE> shows whereabouts in the regular expression the problem was
 discovered.
 
+=item Sequence (?... not terminated in regex; marked by S<<-- HERE> in
+m/%s/
+
+(F) There was no matching closing parenthesis for the '('.  The
+S<<-- HERE> shows whereabouts in the regular expression the problem was
+discovered.
+
 =item Sequence \%s... not terminated in regex; marked by S<<-- HERE> in
 m/%s/
 

diff --git a/regcomp.c b/regcomp.c
index 611cc1c..f748e79 100644 (file)
--- a/regcomp.c
+++ b/regcomp.c
@@ -9797,9 +9797,7 @@ S_parse_lparen_question_flags(pTHX_ RExC_state_t *pRExC_state)
         ++RExC_parse;
     }
 
-    if (PASS2) {
-        STD_PMMOD_FLAGS_PARSE_X_WARN(x_mod_count);
-    }
+    vFAIL("Sequence (?... not terminated");
 }
 
 /*

diff --git a/t/re/re_tests b/t/re/re_tests
index 67ac57c..ace40f0 100644 (file)
--- a/t/re/re_tests
+++ b/t/re/re_tests
@@ -1951,5 +1951,8 @@ ab(?#Comment){2}c abbc    y       $&      abbc
 \p^    A       c       -       Character following \\p must be '{' or a single-character Unicode property name
 \PU    A       c       -       Can't find Unicode property definition \"U\"
 
+(?i    -       c       -       Sequence (?... not terminated
+(?a-x  -       c       -       Sequence (?... not terminated
+
 # Keep these lines at the end of the file
 # vim: softtabstop=0 noexpandtab