fix for failure to match $foo =~ /(?i)/ (from Ilya Zakharevich)

[perl5.git] / t / op / re_tests

diff --git a/t/op/re_tests b/t/op/re_tests
index d72a0f7..189077c 100644 (file)
--- a/t/op/re_tests
+++ b/t/op/re_tests
@@ -742,3 +742,12 @@ tt+$       xxxtt   y       -       -
 ([[:digit:]-z]+)       =0-z=   y       $1      0-z
 ([[:digit:]-[:alpha:]]+)       =0-z=   y       $1      0-z
 \GX.*X aaaXbX  n       -       -
+(\d+\.\d+)     3.1415926       y       $1      3.1415926
+(\ba.{0,10}br) have a web browser      y       $1      a web br
+'\.c(pp|xx|c)?$'i      Changes n       -       -
+'\.c(pp|xx|c)?$'i      IO.c    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       -       -