Remove warnings "Exiting given/when via next/last"

[perl5.git] / t / op / re_tests

diff --git a/t/op/re_tests b/t/op/re_tests
index 0992b15..f9b070d 100644 (file)
--- a/t/op/re_tests
+++ b/t/op/re_tests
@@ -1358,3 +1358,12 @@ foo(\h)bar       foo\tbar        y       $1      \t
 /^\s*i.*?o\s*$/s       io\n io y       -       -
 # As reported in #59168 by Father Chrysostomos:
 /(.*?)a(?!(a+)b\2c)/   baaabaac        y       $&-$1   baa-ba
+# [perl #60344] Regex lookbehind failure after an (if)then|else in perl 5.10
+/\A(?(?=db2)db2|\D+)(?<!processed)\.csv\z/xms  sql_processed.csv       n       -       -
+/\N{U+0100}/   \x{100} y       $&      \x{100} # Bug #59328
+[\s][\S]       \x{a0}\x{a0}    nT      -       -       # TODO Unicode complements should not match same character
+
+# was generating malformed utf8
+'[\x{100}\xff]'i       \x{ff}  y       $&      \x{ff}
+
+((??{ "(?:|)" }))\s    C\x20   y       -       -