summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>2006-07-11 14:55:17 +0000
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>2006-07-11 14:55:17 +0000
commit25f684f718f20320d62ba2370f2f4341a3b159e7 (patch)
treeff408180cef8f173dbfcea3df8f6c957ea87f645
parent872d7e53b29f06ce069b05dc9063be581f956098 (diff)
downloadperl-25f684f718f20320d62ba2370f2f4341a3b159e7.tar.gz
Revert bogus fix for bug #27940, which wasn't really a bug,
and a new test item, as found and suggested by Sadahiro Tomoyuki. p4raw-id: //depot/perl@28548
-rwxr-xr-xt/op/pat.t3
-rw-r--r--toke.c2
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),
diff --git a/toke.c b/toke.c
index f4e44993ad..ddaf421834 100644
--- a/toke.c
+++ b/toke.c
@@ -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) {