$& segfaults if you trick it

[p5sagit/p5-mst-13.2.git] / t / op / re_tests

diff --git a/t/op/re_tests b/t/op/re_tests
index e957609..37e8ee3 100644 (file)
--- a/t/op/re_tests
+++ b/t/op/re_tests
@@ -749,3 +749,6 @@ tt+$        xxxtt   y       -       -
 '(\.c(pp|xx|c)?$)'i    IO.c    y       $1      .c
 ^([a-z]:)      C:/     n       -       -
 '^\S\s+aa$'m   \nx aa  y       -       -
+(^|a)b ab      y       -       -
+(?i)           y       -       -
+'(?!\A)x'm     a\nxb\n y       -       -