Quote one-liner in exec.t on VMS.

[perl5.git] / regcomp.h

diff --git a/regcomp.h b/regcomp.h
index 8c42d4e..1e82933 100644 (file)
--- a/regcomp.h
+++ b/regcomp.h
@@ -1073,6 +1073,7 @@ re.pm, especially to the documentation.
             PERL_PV_ESCAPE_RE|PERL_PV_ESCAPE_NONASCII |((isuni) ? PERL_PV_ESCAPE_UNI : 0) );         \
     const int rlen = SvCUR(dsv)
 
+/* This is currently unsed in the core */
 #define RE_SV_ESCAPE(rpv,isuni,dsv,sv,m)                            \
     const char * const rpv =                                        \
         pv_pretty((dsv), (SvPV_nolen_const(sv)), (SvCUR(sv)), (m),  \
@@ -1101,6 +1102,8 @@ re.pm, especially to the documentation.
 
 #endif /* DEBUG RELATED DEFINES */
 
+#define FIRST_NON_ASCII_DECIMAL_DIGIT 0x660  /* ARABIC_INDIC_DIGIT_ZERO */
+
 typedef enum {
        TRADITIONAL_BOUND = _CC_WORDCHAR,
        GCB_BOUND,