This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Revert "regcomp: Add warning if tries to use \p in locale."
authorKarl Williamson <public@khwilliamson.com>
Sat, 19 Feb 2011 18:48:58 +0000 (11:48 -0700)
committerKarl Williamson <public@khwilliamson.com>
Sat, 19 Feb 2011 19:08:20 +0000 (12:08 -0700)
This reverts commit fb2e24cdda774d9e9c28f1cd0356bba9070894c7.

This turned out to be contentious, and is past the date for
contentious changes.

regcomp.c
t/lib/warnings/regcomp

index 6f7de6c..745977a 100644 (file)
--- a/regcomp.c
+++ b/regcomp.c
@@ -9439,14 +9439,7 @@ parseit:
                    e = RExC_parse;
                    n = 1;
                }
-               if (SIZE_ONLY) {
-                   if (LOC) {
-                       ckWARN2reg(RExC_parse,
-                               "\\%c uses Unicode rules, not locale rules",
-                               (int) value);
-                   }
-               }
-               else {
+               if (!SIZE_ONLY) {
                    if (UCHARAT(RExC_parse) == '^') {
                         RExC_parse++;
                         n--;
index 3481dff..b435d2a 100644 (file)
@@ -264,14 +264,3 @@ Unrecognized escape \9 in character class passed through in regex; marked by <--
 $a = qr/(?^-i:foo)/;
 EXPECT
 Sequence (?^-...) not recognized in regex; marked by <-- HERE in m/(?^- <-- HERE i:foo)/ at - line 2.
-########
-# regcomp.c [S_regclass]
-use warnings 'regexp' ;
-$a = qr/(?^l:\pL)/;
-$a = qr/(?^l:\PL)/;
-no warnings 'regexp' ;
-$a = qr/(?^l:\pL)/;
-$a = qr/(?^l:\PL)/;
-EXPECT
-\p uses Unicode rules, not locale rules in regex; marked by <-- HERE in m/(?^l:\p <-- HERE L)/ at - line 3.
-\P uses Unicode rules, not locale rules in regex; marked by <-- HERE in m/(?^l:\P <-- HERE L)/ at - line 4.