diff options
Diffstat (limited to 't/re/pat.t')
-rw-r--r-- | t/re/pat.t | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/t/re/pat.t b/t/re/pat.t index edb78ca19e..7ee66bf840 100644 --- a/t/re/pat.t +++ b/t/re/pat.t @@ -20,7 +20,7 @@ BEGIN { require './test.pl'; } -plan tests => 672; # Update this when adding/deleting tests. +plan tests => 674; # Update this when adding/deleting tests. run_tests() unless caller; @@ -1399,6 +1399,14 @@ EOP $s = 'abcd$%#&'; $s =~ s/[a#$b%]/X/gx; is ($s, 'XXcdXXX&', 'RT #119125 with /x'); + + $s = 'abYcd$Y#Y&'; + my $c = 'Y'; + $s =~ s/[#$b]$c/X/gx; + is ($s, 'aXcdXX&', 'RT #119125 with /x and trailing var'); + + ok("a#b" =~ /a[#] + b(?{})/x, 'RT #119125 with newline and codeblock'); } } # End of sub run_tests |