This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
regcomp.c: Remove references to old #define
authorKarl Williamson <public@khwilliamson.com>
Fri, 12 Nov 2010 02:00:13 +0000 (19:00 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Mon, 22 Nov 2010 21:32:50 +0000 (13:32 -0800)
Two #defines were recently collapsed to mean the same thing.
Standardize on using one of them.

regcomp.c

index 7c7f526..787517b 100644 (file)
--- a/regcomp.c
+++ b/regcomp.c
@@ -8422,7 +8422,7 @@ parseit:
                    RExC_emit += ANYOF_CLASS_ADD_SKIP;
                    ANYOF_CLASS_ZERO(ret);
                }
-                   ANYOF_FLAGS(ret) |= ANYOF_CLASS|ANYOF_LARGE;
+                   ANYOF_FLAGS(ret) |= ANYOF_CLASS;
            }
 
            /* a bad range like a-\d, a-[:digit:] ? */
@@ -10387,7 +10387,7 @@ S_dumpuntil(pTHX_ const regexp *r, const regnode *start, const regnode *node,
        }
        else if (op == ANYOF) {
            /* arglen 1 + class block */
-           node += 1 + ((ANYOF_FLAGS(node) & ANYOF_LARGE)
+           node += 1 + ((ANYOF_FLAGS(node) & ANYOF_CLASS)
                    ? ANYOF_CLASS_SKIP : ANYOF_SKIP);
            node = NEXTOPER(node);
        }