This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Revert bogus fix for bug #27940, which wasn't really a bug,
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Tue, 11 Jul 2006 14:55:17 +0000 (14:55 +0000)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Tue, 11 Jul 2006 14:55:17 +0000 (14:55 +0000)
and a new test item, as found and suggested by Sadahiro Tomoyuki.

p4raw-id: //depot/perl@28548

t/op/pat.t
toke.c

index aeab0f7..e4ba07f 100755 (executable)
@@ -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 f4e4499..ddaf421 100644 (file)
--- 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) {