Tighten the checking regex in checkcfgvar.pl.

[perl5.git] / regcomp.h

diff --git a/regcomp.h b/regcomp.h
index a9b2700..6826ae0 100644 (file)
--- a/regcomp.h
+++ b/regcomp.h
@@ -317,7 +317,7 @@ struct regnode_charclass_class {
  * only, with some work, they could be put in the next-node field, or in an
  * unused bit of the classflags field. */
 
-#define ANYOF_LOCALE            0x01
+#define ANYOF_LOCALE            0x01       /* /l modifier */
 
 /* The fold is calculated and stored in the bitmap where possible at compile
  * time.  However there are two cases where it isn't possible.  These share
@@ -836,7 +836,8 @@ re.pm, especially to the documentation.
 
 #ifdef DEBUGGING
 
-#define GET_RE_DEBUG_FLAGS_DECL VOL IV re_debug_flags = 0; GET_RE_DEBUG_FLAGS;
+#define GET_RE_DEBUG_FLAGS_DECL VOL IV re_debug_flags \
+       __attribute__unused__ = 0; GET_RE_DEBUG_FLAGS;
 
 #define RE_PV_COLOR_DECL(rpv,rlen,isuni,dsv,pv,l,m,c1,c2) \
     const char * const rpv =                          \