perldebguts: Add clarification

diff --git a/pod/perldebguts.pod b/pod/perldebguts.pod
index 064af64..b7a3c5d 100644 (file)
--- a/pod/perldebguts.pod
+++ b/pod/perldebguts.pod
@@ -628,7 +628,8 @@ will be lost.
  # Literals
 
  EXACT           str        Match this string (preceded by length).
- EXACTL          str        Like EXACT, but /l is in effect.
+ EXACTL          str        Like EXACT, but /l is in effect (used so
+                            locale-related warnings can be checked for).
  EXACTF          str        Match this non-UTF-8 string (not guaranteed
                             to be folded) using /id rules (w/len).
  EXACTFL         str        Match this string (not guaranteed to be

diff --git a/regcomp.sym b/regcomp.sym
index ffcb53b..f385dc6 100644 (file)
--- a/regcomp.sym
+++ b/regcomp.sym
@@ -90,7 +90,7 @@ BRANCH      BRANCH,     node 0 V  ; Match this alternative, or the next...
 # NOTE: the relative ordering of these types is important do not change it
 
 EXACT       EXACT,      str       ; Match this string (preceded by length).
-EXACTL      EXACT,      str       ; Like EXACT, but /l is in effect.
+EXACTL      EXACT,      str       ; Like EXACT, but /l is in effect (used so locale-related warnings can be checked for).
 EXACTF      EXACT,      str       ; Match this non-UTF-8 string (not guaranteed to be folded) using /id rules (w/len).
 EXACTFL     EXACT,      str       ; Match this string (not guaranteed to be folded) using /il rules (w/len).
 EXACTFU     EXACT,      str      ; Match this string (folded iff in UTF-8, length in folding doesn't change if not in UTF-8) using /iu rules (w/len).

diff --git a/regnodes.h b/regnodes.h
index db32920..88227ee 100644 (file)
--- a/regnodes.h
+++ b/regnodes.h
@@ -42,7 +42,7 @@
 #define        CLUMP                   28      /* 0x1c Match any extended grapheme cluster sequence */
 #define        BRANCH                  29      /* 0x1d Match this alternative, or the next... */
 #define        EXACT                   30      /* 0x1e Match this string (preceded by length). */
-#define        EXACTL                  31      /* 0x1f Like EXACT, but /l is in effect. */
+#define        EXACTL                  31      /* 0x1f Like EXACT, but /l is in effect (used so locale-related warnings can be checked for). */
 #define        EXACTF                  32      /* 0x20 Match this non-UTF-8 string (not guaranteed to be folded) using /id rules (w/len). */
 #define        EXACTFL                 33      /* 0x21 Match this string (not guaranteed to be folded) using /il rules (w/len). */
 #define        EXACTFU                 34      /* 0x22 Match this string (folded iff in UTF-8, length in folding doesn't change if not in UTF-8) using /iu rules (w/len). */