PATCH: [perl #115242] Test

This commit is a test for this bug.

diff --git a/t/re/re_tests b/t/re/re_tests
index 03167b8..fff9e4c 100644 (file)
--- a/t/re/re_tests
+++ b/t/re/re_tests
@@ -849,6 +849,7 @@ abb$        b\nca   n       -       -
 'abb\Z'm       b\nca   n       -       -
 'abb\z'm       b\nca   n       -       -
 'abb$'m        b\nca   n       -       -
+'\Aa$'m        a\n\n   y       $&      a
 (^|x)(c)       ca      y       $2      c
 a*abc?xyz+pqr{3}ab{2,}xy{4,5}pq{0,6}AB{0,}zz   x       n       -       -
 a(?{$a=2;$b=3;($b)=$a})b       yabz    y       $b      2