This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Merge branch 'blead' of ssh://perl5.git.perl.org/perl into blead
authorSawyer X <xsawyerx@cpan.org>
Sun, 21 Feb 2016 16:51:25 +0000 (17:51 +0100)
committerSawyer X <xsawyerx@cpan.org>
Sun, 21 Feb 2016 16:51:25 +0000 (17:51 +0100)
t/re/pat_advanced.t

index 1488a88..ab145eb 100644 (file)
@@ -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'