[perl #32039] Chained goto &sub drops data too early.

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

diff --git a/t/op/re_tests b/t/op/re_tests
index 3daa676..1bec50b 100644 (file)
--- a/t/op/re_tests
+++ b/t/op/re_tests
@@ -940,3 +940,6 @@ a(b)??      abc     y       <$1>    <>      # undef [perl #16773]
 ^(?:f|o|b){2,3}?(.+?)\1\z      foobarbar       y       $1      bar
 ^.{2,3}?((?:b|a|r)+?)\1\z      foobarbar       y       $1      bar
 ^(?:f|o|b){2,3}?((?:b|a|r)+?)\1\z      foobarbar       y       $1      bar
+.*a(?!(b|cd)*e).*f     ......abef      n       -       -       # [perl #23030]
+x(?#   x       c       -       Sequence (?#... not terminated
+:x(?#: x       c       -       Sequence (?#... not terminated