From bd49ac44925fe350b1f4f61cabcdb3f2e5cd2ff8 Mon Sep 17 00:00:00 2001
From: Guido van Rossum <guido@python.org>
Date: Wed, 10 Dec 1997 23:05:53 +0000
Subject: The 'l' flag (locale specific matching) has been renamed to 'L'.

---
 Doc/lib/libre.tex | 5 +++--
 Doc/libre.tex     | 5 +++--
 Modules/pypcre.c  | 4 ++--
 3 files changed, 8 insertions(+), 6 deletions(-)

diff --git a/Doc/lib/libre.tex b/Doc/lib/libre.tex
index 6f216a7..b63a5fa 100644
--- a/Doc/lib/libre.tex
+++ b/Doc/lib/libre.tex
@@ -164,10 +164,11 @@ class: \code{[(] [)]}.
 determines what the meaning and further syntax of the construct is.
 Following are the currently supported extensions.
 %
-\item[\code{(?ilmsx)}] (One or more letters from the set 'i', 'l', 'm', 's',
+\item[\code{(?iLmsx)}] (One or more letters from the set 'i', 'L', 'm', 's',
 'x'.) The group matches the empty string; the letters set the
 corresponding flags (re.I, re.L, re.M, re.S, re.X) for the entire regular
-expression.  This is useful if you wish include the flags as part of the regular
+expression.  (The flag 'L' is uppercase because it is not in standard Perl.)
+This is useful if you wish include the flags as part of the regular
 expression, instead of passing a \var{flag} argument to the \code{compile} function.
 %
 \item[\code{(?:...)}] A non-grouping version of regular parentheses.
diff --git a/Doc/libre.tex b/Doc/libre.tex
index 6f216a7..b63a5fa 100644
--- a/Doc/libre.tex
+++ b/Doc/libre.tex
@@ -164,10 +164,11 @@ class: \code{[(] [)]}.
 determines what the meaning and further syntax of the construct is.
 Following are the currently supported extensions.
 %
-\item[\code{(?ilmsx)}] (One or more letters from the set 'i', 'l', 'm', 's',
+\item[\code{(?iLmsx)}] (One or more letters from the set 'i', 'L', 'm', 's',
 'x'.) The group matches the empty string; the letters set the
 corresponding flags (re.I, re.L, re.M, re.S, re.X) for the entire regular
-expression.  This is useful if you wish include the flags as part of the regular
+expression.  (The flag 'L' is uppercase because it is not in standard Perl.)
+This is useful if you wish include the flags as part of the regular
 expression, instead of passing a \var{flag} argument to the \code{compile} function.
 %
 \item[\code{(?:...)}] A non-grouping version of regular parentheses.
diff --git a/Modules/pypcre.c b/Modules/pypcre.c
index 5d41cc1..797d955 100644
--- a/Modules/pypcre.c
+++ b/Modules/pypcre.c
@@ -1755,7 +1755,7 @@ for (;; ptr++)
         {
         case '#':
         case 'i':
-        case 'l':
+        case 'L':
         case 'm':
         case 's':
         case 'x':
@@ -2476,7 +2476,7 @@ while ((c = *(++ptr)) != 0)
           options |= PCRE_CASELESS;
           continue;
           }
-        else if ((c = *ptr) == 'l')
+        else if ((c = *ptr) == 'L')
           {
           options |= PCRE_LOCALE;
           continue;
-- 
cgit v0.12