diff options
| -rwxr-xr-x | t/op/pat.t | 3 | ||||
| -rw-r--r-- | toke.c | 2 |
2 files changed, 3 insertions, 2 deletions
diff --git a/t/op/pat.t b/t/op/pat.t index aeab0f7a19..e4ba07f93f 100755 --- a/t/op/pat.t +++ b/t/op/pat.t @@ -7,7 +7,7 @@ $| = 1; # please update note at bottom of file when you change this -print "1..1211\n"; +print "1..1212\n"; BEGIN { chdir 't' if -d 't'; @@ -3312,6 +3312,7 @@ ok("abc" =~ /[^\cA-\cB]/, '\cA in negated character class range'); ok("a\cBb" =~ /[\cA-\cC]/, '\cB in character class range'); ok("a\cCbc" =~ /[^\cA-\cB]/, '\cC in negated character class range'); ok("a\cAb" =~ /(??{"\cA"})/, '\cA in ??{} pattern'); +ok("ab" !~ /a\cIb/x, '\cI in pattern'); # perl #28532: optional zero-width match at end of string is ignored ok(("abc" =~ /^abc(\z)?/) && defined($1), @@ -1785,7 +1785,7 @@ S_scan_const(pTHX_ char *start) const char * const leaveit = /* set of acceptably-backslashed characters */ PL_lex_inpat - ? "\\.^$@AGZdDwWsSbBpPXC+*?|()-nrtfeaxz0123456789[{]} \t\n\r\f\v#" + ? "\\.^$@AGZdDwWsSbBpPXC+*?|()-nrtfeaxcz0123456789[{]} \t\n\r\f\v#" : ""; if (PL_lex_inwhat == OP_TRANS && PL_sublex_info.sub_op) { |