Merge branch 'blead' of ssh://perl5.git.perl.org/perl into blead

diff --git a/t/re/pat_advanced.t b/t/re/pat_advanced.t
index 1488a88..ab145eb 100644 (file)
--- a/t/re/pat_advanced.t
+++ b/t/re/pat_advanced.t
@@ -2457,6 +2457,13 @@ EOF
                      "buffer overflow in TRIE_STORE_REVCHAR");
     }
 
+    {
+        fresh_perl_like('use warnings; s\00(?(?!00000000000000000000000000·000000)\500000000\00000000000000000000000000000000000000000000000000000·00000000000000000000000000000000\00',
+                        qr/Switch \(\?\(condition\)\.\.\. not terminated/,
+                        {},
+                        'No segfault [perl #126886]');
+    }
+
     # !!! NOTE that tests that aren't at all likely to crash perl should go
     # a ways above, above these last ones.  There's a comment there that, like
     # this comment, contains the word 'NOTE'