Change 28548 by [EMAIL PROTECTED] on 2006/07/11 14:55:17
Revert bogus fix for bug #27940, which wasn't really a bug,
and a new test item, as found and suggested by Sadahiro Tomoyuki.
Affected files ...
... //depot/perl/t/op/pat.t#238 edit
... //depot/perl/toke.c#690 edit
Differences ...
==== //depot/perl/t/op/pat.t#238 (xtext) ====
Index: perl/t/op/pat.t
--- perl/t/op/pat.t#237~28462~ 2006-07-02 08:34:23.000000000 -0700
+++ perl/t/op/pat.t 2006-07-11 07:55:17.000000000 -0700
@@ -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("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),
==== //depot/perl/toke.c#690 (text) ====
Index: perl/toke.c
--- perl/toke.c#689~28533~ 2006-07-10 10:23:02.000000000 -0700
+++ perl/toke.c 2006-07-11 07:55:17.000000000 -0700
@@ -1785,7 +1785,7 @@
const char * const leaveit = /* set of acceptably-backslashed characters */
PL_lex_inpat
- ? "[EMAIL PROTECTED]|()-nrtfeaxz0123456789[{]} \t\n\r\f\v#"
+ ? "[EMAIL PROTECTED]|()-nrtfeaxcz0123456789[{]} \t\n\r\f\v#"
: "";
if (PL_lex_inwhat == OP_TRANS && PL_sublex_info.sub_op) {
End of Patch.
