This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
regcomp.c: Use mnemonic instead of number
authorKarl Williamson <public@khwilliamson.com>
Wed, 20 Mar 2013 15:30:11 +0000 (09:30 -0600)
committerKarl Williamson <public@khwilliamson.com>
Mon, 20 May 2013 14:59:11 +0000 (08:59 -0600)
regcomp.c

index fb52d47..53268fd 100644 (file)
--- a/regcomp.c
+++ b/regcomp.c
@@ -8400,7 +8400,7 @@ S_parse_lparen_question_flags(pTHX_ struct RExC_state_t *pRExC_state)
 #define WASTED_O  0x01
 #define WASTED_G  0x02
 #define WASTED_C  0x04
-#define WASTED_GC (0x02|0x04)
+#define WASTED_GC (WASTED_G|WASTED_C)
     I32 wastedflags = 0x00;
     U32 posflags = 0, negflags = 0;
     U32 *flagsp = &posflags;