This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
fix perl #126186 make all verbs allow an optional arg
[perl5.git] / regnodes.h
index cc3da9d..c05003d 100644 (file)
@@ -93,8 +93,8 @@
 #define        INSUBP                  79      /* 0x4f Whether we are in a specific recurse. */
 #define        DEFINEP                 80      /* 0x50 Never execute directly. */
 #define        ENDLIKE                 81      /* 0x51 Used only for the type field of verbs */
-#define        OPFAIL                  82      /* 0x52 Same as (?!) */
-#define        ACCEPT                  83      /* 0x53 Accepts the current matched string. */
+#define        OPFAIL                  82      /* 0x52 Same as (?!), but with verb arg */
+#define        ACCEPT                  83      /* 0x53 Accepts the current matched string, with verbar */
 #define        VERB                    84      /* 0x54 Used only for the type field of verbs */
 #define        PRUNE                   85      /* 0x55 Pattern fails at this startpoint if no-backtracking through this */
 #define        MARKPOINT               86      /* 0x56 Push the current location for rollback by cut. */
@@ -377,8 +377,8 @@ static const U8 regarglen[] = {
        EXTRA_SIZE(struct regnode_1),           /* INSUBP       */
        EXTRA_SIZE(struct regnode_1),           /* DEFINEP      */
        0,                                      /* ENDLIKE      */
-       0,                                      /* OPFAIL       */
-       EXTRA_SIZE(struct regnode_1),           /* ACCEPT       */
+       EXTRA_SIZE(struct regnode_1),           /* OPFAIL       */
+       EXTRA_SIZE(struct regnode_2L),          /* ACCEPT       */
        EXTRA_SIZE(struct regnode_1),           /* VERB         */
        EXTRA_SIZE(struct regnode_1),           /* PRUNE        */
        EXTRA_SIZE(struct regnode_1),           /* MARKPOINT    */