Add ANYOFD regex node

This is like an ANYOF node, but just for when /d is in effect.  It will
be used in future commits

1 files changed, 4 insertions, 1 deletions

diff --git a/regcomp.c b/regcomp.c
index 4264274c4a..5c5cda9519 100644
--- a/regcomp.c
+++ b/regcomp.c
@@ -5097,6 +5097,7 @@ PerlIO_printf(Perl_debug_log, "LHS=%"UVuf" RHS=%"UVuf"\n",
 		    }
 		    break;
 
+                case ANYOFD:
                 case ANYOFL:
                 case ANYOF:
 		    if (flags & SCF_DO_STCLASS_AND)
@@ -14262,7 +14263,9 @@ S_regclass(pTHX_ RExC_state_t *pRExC_state, I32 *flagp, U32 depth,
     ret = reganode(pRExC_state,
                    (LOC)
                     ? ANYOFL
-                    : ANYOF,
+                    : (DEPENDS_SEMANTICS)
+                      ? ANYOFD
+                      : ANYOF,
                    0);
 
     if (SIZE_ONLY) {